如何在R的DT库中实现自定义行分组聚合

需求目标 #

在R语言DT库的RowGroup扩展分组后的表格中生成行聚合值，已实现数据框分组，但不知如何为汇总行填充基于全量数据的聚合值。

尝试方案 #

参考DT官方文档示例，明确需使用rowGroup.startRender，但不清楚在R的DT库中具体实现方式。

期望输出 #

获取每个分组的样本数量及平均体重，效果如图：

现有代码 #

DT::datatable(chickwts,
              rownames = TRUE,
              extensions="RowGroup",
              options = list(rowGroup = list(dataSrc=c(2),
                                             columnDefs = list(list(visible=FALSE, targets=c(2))))
              ))

更新说明 #

现有解决方案仅能基于当前显示记录计算聚合值，无法获取分组的总记录统计（效果如图：图1、图2），需实现基于底层全量数据生成聚合值。

解决方案 #

要实现基于全量数据的分组聚合，需先预计算分组统计值，再通过JavaScript的rowGroup.startRender调用这些预计算结果，避免仅计算当前页数据的局限。

步骤1：预计算全量数据的分组统计值 #

library(dplyr)
library(DT)
library(jsonlite)

# 计算每个feed分组的样本量和平均体重
agg_stats <- chickwts %>%
  group_by(feed) %>%
  summarise(
    样本量 = n(),
    平均体重 = round(mean(weight), 2)
  ) %>%
  tibble::deframe() %>%
  toJSON(auto_unbox = TRUE)

步骤2：配置DT表格并自定义聚合行 #

datatable(
  chickwts,
  rownames = TRUE,
  extensions = "RowGroup",
  options = list(
    rowGroup = list(
      dataSrc = 2, # 指定按第2列（feed）分组
      startRender = JS(
        function(rows, group) {
          const stats = JSON.parse('', agg_stats);
          const n = stats[group]["样本量"];
          const avg = stats[group]["平均体重"];
          return $('<tr/>')
            .append('<td colspan="3" style="font-weight:bold; padding-left:1em;">' + group + '</td>')
            .append('<td style="text-align:right;">样本量: ' + n + '</td>')
            .append('<td style="text-align:right;">平均体重: ' + avg + '</td>');
        }
      )
    ),
    columnDefs = list(
      list(visible = FALSE, targets = 2) # 隐藏原始分组列
    )
  )
)

关键说明 #

• 预计算的统计值通过JSON格式传入JavaScript，确保聚合计算基于全量数据而非当前页
• startRender函数根据分组名称匹配预计算的统计值，生成包含聚合信息的自定义行
• 通过HTML样式调整聚合行的显示效果，使其与表格整体风格一致

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