如何在R语言中对数据表的全部列或指定列子集批量执行计算操作

基础R实现（无需额外安装依赖包） #

直接用apply()函数按列批量执行计算逻辑即可：

# 提前给yrs赋值为你的数据对应的年限
Ann_Ret <- apply(BM_Returns[, 2:15], MARGIN = 2, function(x) {
  (prod(1 + x/100)^(1/yrs)) - 1
})

• 参数MARGIN = 2代表按列遍历数据，每一列的数值会传入自定义函数的x参数中参与计算
• 最终得到的Ann_Ret是命名向量，向量名和原数据的2-15列列名一一对应，可直接按名称取值

tidyverse生态实现（更适配后续批量数据处理需求） #

如果常用dplyr工具链，用across()函数处理多列逻辑更灵活，后续要新增其他批量计算也可以直接扩展：

library(dplyr)
Ann_Ret_df <- BM_Returns %>%
  summarise(across(2:15, ~ (prod(1 + .x/100)^(1/yrs)) - 1))

• across(2:15)指定遍历处理第2到第15列，.x指代当前遍历到的列的数值
• 最终得到的Ann_Ret_df是一行14列的表格，每列对应一支标的的计算结果

常见场景扩展 #

• 如果要自定义筛选需要计算的列，而非固定2-15列：基础R方案中可以把2:15替换为grep("匹配关键词", colnames(BM_Returns))；dplyr方案中可以替换为contains("匹配关键词")等列选择器
• 如果数据存在缺失值，可在prod()函数中添加na.rm = TRUE参数，即prod(1 + x/100, na.rm = TRUE)，避免缺失值导致结果返回NA

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