如何在R的data.table列表中添加总计行与百分比行

我来帮你搞定这个需求！针对你手里的data.table列表，我们可以用data.table的原生语法快速实现添加总计行和百分比行的操作，具体步骤如下：

1. 准备工作：加载包与构造示例数据 #

首先确保你已经加载了data.table包，然后咱们先把你提供的示例数据构造出来：

library(data.table)

# 构造你给出的示例data.table列表
dt_list <- list(
  data.table(
    PROVINCE = c(2, 2, 4),
    Y = c(89.98376, 97.12802, 100.62682),
    Z = c(90.79929, 90.68774, 91.20288)
  ),
  data.table(
    PROVINCE = c(4, 6, 5),
    Y = c(106.09127, 111.30426, 84.44623),
    Z = c(94.19237, 107.42695, 102.04221)
  )
)

2. 定义处理单个data.table的函数 #

咱们写一个专门的函数，用来给单个data.table添加总计行和百分比行：

add_total_and_pct <- function(dt) {
  # 生成总计行：PROVINCE列标记为"总计"，对Y和Z列求和
  total_row <- dt[, .(PROVINCE = "总计", Y = sum(Y), Z = sum(Z))]
  
  # 计算每行Y、Z占对应列总计的百分比，拼接成字符串（保留2位小数）
  y_pcts <- paste0(round(dt$Y / total_row$Y * 100, 2), "%", collapse = ", ")
  z_pcts <- paste0(round(dt$Z / total_row$Z * 100, 2), "%", collapse = ", ")
  
  # 生成百分比行：PROVINCE列标记为"百分比"，对应列放拼接好的百分比字符串
  pct_row <- data.table(PROVINCE = "百分比", Y = y_pcts, Z = z_pcts)
  
  # 把原表、总计行、百分比行合并到一起
  rbind(dt, total_row, pct_row)
}

3. 批量处理整个列表 #

用lapply函数遍历整个列表，对每个data.table应用上面的处理函数：

# 处理列表中的所有data.table
result_list <- lapply(dt_list, add_total_and_pct)

# 查看第一个处理后的结果
print(result_list[[1]])
# 查看第二个处理后的结果
print(result_list[[2]])

效果展示 #

处理后的第一个data.table会变成这样：

PROVINCE                     Y                     Z
1:        2                89.98376                90.79929
2:        2                97.12802                90.68774
3:        4               100.62682                91.20288
4:      总计               287.73860               272.68991
5:    百分比 29.88%, 33.76%, 34.97% 33.29%, 33.26%, 33.45%

完全符合你要的：第4行是总计行（对Y、Z求和），第5行是百分比行（展示每行占总计的比例）。

你可以根据自己的需求调整百分比的保留位数，或者修改拼接方式哦！

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