在R语言for循环中使用dplyr::rename函数失败的原因解析

你的代码执行失败，核心问题是dplyr::rename的语法规则：在rename(new.names[i] = 1)里，左边的new.names[i]会被当成字面意义的列名（也就是字符串"new.names[i]"），而不是去读取new.names向量第i个元素的实际值。dplyr的这类函数（比如rename、mutate）默认把等号左边的符号视为字面列名，不会自动对变量求值。

另外你笔误写错了new.names的最后一个元素，应该是"change3"才和files的长度匹配（不过这不是主要报错原因）。

下面提供几种可行的方案：

方案1：用dplyr的准引用（符合tidyverse风格） #

使用:=替代普通等号，并用!!sym()来解析动态的列名变量，让R正确读取new.names[i]的值：

library(tidyverse)

iris1 <- iris
iris2 <- iris
iris3 <- iris

files <- list(iris1,iris2,iris3)
new.names <- c("change1","change2","change3") # 修正名称长度匹配

test <- list()
for(i in 1:length(files)){
  test[[i]] <- files[[i]] |>
    dplyr::rename(!!sym(new.names[i]) := 1) # 关键修改
}

# 验证结果
head(test[[1]])

解释：!!是强制求值运算符，会把sym(new.names[i])解析成实际的列名符号；:=是dplyr专门用来支持动态列名赋值的运算符。

方案2：用base R修改列名（简洁直接） #

如果不需要拘泥于dplyr语法，直接用base R的colnames修改更简单：

test <- list()
for(i in 1:length(files)){
  temp_df <- files[[i]]
  colnames(temp_df)[1] <- new.names[i]
  test[[i]] <- temp_df
}

方案3：用purrr替代for循环（tidyverse推荐的向量式操作） #

既然你使用了tidyverse，可以用purrr::map2来完成批量操作，避免手动编写for循环：

test <- map2(files, new.names, ~rename(.x, !!sym(.y) := 1))

map2会自动把files中的每个数据框和new.names中的每个名称一一对应，.x代表当前遍历到的数据框，.y代表当前对应的新列名。

内容的提问来源于stack exchange，提问作者LDT