在R语言中如何将向量元素作为新列名添加至数据框

嘿，我完全懂你的困扰——这确实是个很基础的操作，只是你之前的思路走岔了一点点，咱们马上就能搞定它！

最简洁的基础R解法 #

直接利用R的索引赋值特性就可以一步到位，不需要复杂的矩阵操作：

temp <- data.frame(A=c(1,2,3,4,5), B=c(1,2,3,4,5), C=c(1,2,3,4,5))
variables <- c("D", "E", "F")

# 核心代码：直接给新列赋值NA
temp[variables] <- NA

执行完之后，你就能得到完全符合预期的数据框：

temp
A B C D E F
1 1 1 1 NA NA NA
2 2 2 2 NA NA NA
3 3 3 3 NA NA NA
4 4 4 4 NA NA NA
5 5 5 5 NA NA NA

原理很简单：当你用字符向量（这里的variables）作为数据框的列索引时，R会自动创建这些列，并且把你赋值的NA填充到每一行——完美匹配你的需求！

另一种基础R写法（用cbind） #

如果你更习惯用cbind拼接，那需要先创建全NA的列，再给这些列指定名字，而不是用variables生成矩阵内容：

# 生成对应数量的全NA向量，并用variables命名
new_cols <- setNames(replicate(length(variables), rep(NA, nrow(temp))), variables)
# 拼接原数据框和新列
temp <- cbind(temp, new_cols)

这里replicate会根据variables的长度生成对应个数的、长度等于原数据框行数的NA向量，setNames则把variables作为这些向量的名字，这样拼接后列名就直接是D、E、F了。

Tidyverse用户的解法（dplyr） #

如果你平时用tidyverse工具链，也可以用dplyr的语法实现：

library(dplyr)

temp <- temp %>% 
  mutate(!!!rlang::set_names(rep(list(NA), length(variables)), variables))

这里rlang::set_names给多个NA列表（每个列表对应一列）指定名字，!!!用来把命名后的列表展开成mutate的参数，从而添加新列。

为什么你之前的代码不对？ #

你之前用as.data.frame(matrix(variables,ncol = length(temp), byrow = T))生成的是一个每行都是D、E、F的矩阵，转成数据框后列名默认是V1-V3，所以拼接后才会出现列名不对、值是D/E/F的情况——你搞反了：variables应该是列名，而不是列的内容，列的内容应该是NA才对。

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