如何用字符串命名在R data.table中批量创建新列？

你碰到的核心问题是data.table的:=赋值语法对字面量和变量的解析规则：当你直接写column_name := ...时，它会把column_name当成一个固定的列名字符串，而不是循环中变量的取值。所以每次循环都在覆盖同一个名为column_name的列，而不是创建你想要的x、y、z列。

下面给你三种可行的解决方案，从简单到高效，适配不同场景：

1. 用括号包裹变量解析列名 #

这是最直观的修改方式，只需要给循环变量加上括号，让data.table解析变量中的字符串作为列名：

dt <- data.table(a = c(1,2,3), b = c(4,5,6))
column_names <- c("x", "y", "z")

for (column_name in column_names) {
  dt[, (column_name) := paste0(column_name, a, b)]
}

运行后你会看到dt里新增了x、y、z三列，第一行的x值就是x14，完全符合预期。

2. 使用set()函数高效循环 #

如果你的列数非常多，推荐用data.table专门提供的set()函数——它是低开销的修改接口，避免了每次循环调用[.data.table的额外成本：

dt <- data.table(a = c(1,2,3), b = c(4,5,6))
column_names <- c("x", "y", "z")

for (i in seq_along(column_names)) {
  col_name <- column_names[i]
  set(dt, j = col_name, value = paste0(col_name, dt$a, dt$b))
}

set()的j参数直接接受列名字符串，value传入要赋值的向量，全程在原data.table上修改，性能更优。

3. 向量化操作（推荐） #

data.table的设计理念是尽量避免循环，用向量化操作一次性完成任务。这里可以用lapply生成所有需要的列向量，一次性赋值给目标列：

dt <- data.table(a = c(1,2,3), b = c(4,5,6))
column_names <- c("x", "y", "z")

dt[, (column_names) := lapply(column_names, function(col) paste0(col, a, b))]

这种方式代码更简洁，执行效率也最高，是data.table用户的惯用写法。

验证一下结果：

> dt
   a b   x   y   z
1: 1 4 x14 y14 z14
2: 2 5 x25 y25 z25
3: 3 6 x36 y36 z36

完全符合你的预期！

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