求助：R语言for循环中如何将数据框列名设为x_names指定值

这问题我太熟啦！你当前的代码每次循环都新增一个叫x的列，而注释里的rename写法不对——直接写x_names = x是把列改名为字符串"x_names"，不是你向量里的x1/x2/x3，而且也没关联到循环里的每个i。给你两个简单靠谱的解决方案：

方案1：直接动态赋值（最简洁高效） #

不用cbind，直接用数据框的[[ ]]语法给新列命名，一步到位：

x_names <- c("x1","x2","x3") 
data <- c(1,2,3,4) 
fake <- c(2,3,4,5) 

# 先把初始向量转成带列名的数据框
data <- as.data.frame(data)
colnames(data) <- "data"

for (i in x_names) { 
  data[[i]] <- fake  # 直接以当前循环的i作为新列名，赋值为fake
}

运行后你会得到data列加上x1、x2、x3三列，完全符合需求。

方案2：结合dplyr的重命名（适合习惯tidyverse的场景） #

如果你一定要用cbind+rename，得用非标准求值让dplyr识别循环变量i作为列名，用!!运算符把字符串转成列名符号：

library(dplyr)

x_names <- c("x1","x2","x3") 
data <- c(1,2,3,4) 
fake <- c(2,3,4,5) 

# 初始化数据框并命名初始列
data <- as.data.frame(data) %>% rename(data = data)

for (i in x_names) { 
  data <- data %>% 
    cbind(x = fake) %>%  # 新增临时列x
    rename(!!i := x)     # 把临时列x重命名为当前循环的i
}

这里的!!i会把循环中的字符串i（比如"x1"）转化为dplyr能识别的列名，这样每次循环都能给新列正确命名。

为啥你原来的rename没用？ #

你注释里的rename(x_names = x)其实是把x列改名为固定字符串"x_names"，而不是x_names向量里的元素。而且循环里每次cbind都会新增一个x列，你之前的写法根本没关联到循环的每个i，自然不会得到想要的列名啦。

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