R语言通过for循环批量生成求和新变量并自定义命名的实现方法

你代码的问题出在列赋值的写法上：R中$运算符无法解析动态生成的列名字符串，data$column[j]的写法会尝试读取数据框中名为column的列的第j个元素，而不是生成名为Column1/Column2的新列。

实现步骤 #

1. 先整理所有变量向量到列表

你动态生成变量名向量时，直接存入列表即可，无需单独创建V1/V2/V3这类独立变量，适配未知数量的计算需求：

# 示例数据框构造
data <- data.frame(
  Name = c("r1", "r2", "r3", "r4"),
  A = c(1,2,5,7),
  B = c(5,4,15,8),
  C = c(12,7,6,0),
  D = c(21,10,9,7),
  E = c(15,9,6,18)
)

# 存储所有待计算的变量名向量的列表，动态生成时直接往该列表追加元素即可
var_list <- list(
  c("A","B","C"),
  c("B","D"),
  c("D","E")
)

2. 循环计算行和并新增列

用[[ ]]替代$实现动态列名赋值：

for (j in seq_along(var_list)) {
  # 自动生成新列名
  new_col <- paste0("Column", j)
  # 计算行和并赋值，如果你实际的原数据框名为all_data_Second_program，替换此处的data即可
  data[[new_col]] <- rowSums(data[, var_list[[j]]])
}

如果不想写循环，也可以用更简洁的向量化写法一次性完成：

data <- cbind(
  data,
  setNames(
    lapply(var_list, function(v) rowSums(data[,v])),
    paste0("Column", seq_along(var_list))
  )
)

运行后得到的结果和你预期的输出完全一致。

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