在R脚本中对数据框指定列求和并添加‘Total’行存储结果

方法1：基础R的rbind实现 #

1. 先计算目标列的求和结果：

TCM <- colSums(df[3:16])

2. 构造与原数据框列名匹配的Total行，根据前两列的类型填充对应内容（比如字符型填"Total"，数值型可填NA或0）：

# 假设原数据框前两列名为col1、col2，根据实际列名修改
total_row <- data.frame(
  col1 = "Total", 
  col2 = "Total", 
  TCM, 
  stringsAsFactors = FALSE
)
# 将Total行追加到原数据框末尾
df <- rbind(df, total_row)

方法2：用dplyr包简化操作 #

如果习惯用tidyverse工具链，可以用add_row更直观：

library(dplyr)

df <- df %>%
  add_row(
    col1 = "Total", 
    col2 = "Total", # 按需调整前两列内容
    !!!TCM, # 展开求和结果匹配对应列
    .before = NULL # 默认追加到数据框最后
  )

注意事项 #

• 必须保证构造的total_row列名与原数据框完全一致，否则合并时会出错
• 前两列的填充值可根据业务需求调整，比如不需要标识的话可以设为NA

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