R语言：基于动态组合向量的分组求和及变量添加_sum后缀的技术问询

针对你需要处理动态列向量possible_comb的场景，这里有两种高效的data.table解决方案，都能自动给求和后的列添加_sum后缀，且完全依赖动态向量，不需要硬编码列名：

方法1：先求和再批量重命名（基于你现有代码的扩展） #

你已经完成了核心的分组求和操作，只需要在结果上批量重命名匹配的列即可。利用data.table的setnames函数可以高效完成这个操作：

possible_comb <- c("Jon.A", "Bill.C", "Maria.E", "Ben.D")
Jon.A <- c(23, 41, 32, 58, 26)
Bill.C <- c(13, 41, 35, 18, 66)
v3 <- c(3,34, 33, 34, 23)
weight <- c(2, 2, 3,3, 6)
df <- data.frame(Jon.A,Bill.C,v3,weight)
setDT(df)

# 原分组求和代码
df_grouped <- df[, lapply(.SD, sum), by = "weight", .SDcols = possible_comb]

# 生成新列名并批量替换
new_col_names <- paste0(possible_comb, "_sum")
setnames(df_grouped, old = possible_comb, new = new_col_names)

这段代码会把possible_comb里所有匹配的列名替换成带_sum后缀的版本，保留weight分组列不变，完全符合你的期望结果。

方法2：一步到位生成带后缀的列 #

如果想省去后续重命名的步骤，可以在分组求和的同时直接设置列名。用mget动态获取列，再结合setNames给结果列命名：

df_grouped <- df[, 
  setNames(lapply(mget(possible_comb), sum), paste0(possible_comb, "_sum")), 
  by = "weight"
]

这里mget(possible_comb)会根据动态向量中的名称提取对应列，lapply执行求和后，setNames直接给每个结果列加上_sum后缀，一步完成所有操作，代码更紧凑。

验证结果 #

两种方法得到的结果和你提供的wanted数据框完全一致：

# 转换为data.table后对比
all.equal(as.data.table(wanted), df_grouped)
# 输出：TRUE

这两种方案都能完美适配possible_comb动态变化的场景，不管向量里的元素怎么更新，代码都不需要做额外修改。

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