如何在gt包中动态指定分组汇总行的标签？

可以通过gt包的summary_rows()函数结合动态标签生成，或者先用tidyverse预处理数据添加汇总行来实现，以下是两种可行方案：

方案一：直接使用gt的summary_rows动态生成标签 #

利用summary_rows()的label参数接收一个自定义函数，该函数会自动获取当前分组名称，从而动态拼接出带分组名的汇总标签：

library(gt)
library(tidyverse)
library(glue)

# 构造示例数据
data <- mtcars %>%
  mutate(grp = case_when(
    cyl == 4 ~ "grp1",
    cyl == 6 ~ "grp2",
    TRUE ~ "grp3"
  )) %>%
  select(grp, mpg, disp)

# 生成带动态分组汇总标签的gt表格
data %>%
  gt(groupname_col = "grp") %>%
  summary_rows(
    groups = everything(),  # 对所有分组应用汇总
    fns = list(Total = ~sum(.)),  # 定义汇总函数（求和）
    label = function(group) glue("Total, {group}")  # 动态生成标签
  )

这里label参数的函数会针对每个分组传入对应的名称，通过glue（或基础R的paste）拼接成Total, grp1、Total, grp2这类标签，替代默认的静态"Total"。

方案二：先用tidyverse预处理数据添加汇总行 #

如果需要对汇总行做更多自定义处理，可以先在数据层面生成汇总行，再用gt进行分组展示：

library(gt)
library(tidyverse)
library(glue)

# 构造示例数据
data <- mtcars %>%
  mutate(grp = case_when(
    cyl == 4 ~ "grp1",
    cyl == 6 ~ "grp2",
    TRUE ~ "grp3"
  )) %>%
  select(grp, mpg, disp)

# 生成包含汇总行的数据集
data_with_totals <- data %>%
  group_by(grp) %>%
  # 计算每组汇总值，并修改分组列为带Total的标签
  summarise(
    mpg = sum(mpg),
    disp = sum(disp),
    .groups = "drop"
  ) %>%
  mutate(grp = glue("Total, {grp}")) %>%
  # 将汇总行绑定到原数据后
  bind_rows(data, .) %>%
  # 按分组排序，让汇总行紧跟对应分组
  arrange(str_remove(grp, "Total, "))

# 生成gt表格并设置行分组
data_with_totals %>%
  gt() %>%
  tab_row_group(group = "grp1", rows = grp == "grp1") %>%
  tab_row_group(group = "Total, grp1", rows = grp == "Total, grp1") %>%
  tab_row_group(group = "grp2", rows = grp == "grp2") %>%
  tab_row_group(group = "Total, grp2", rows = grp == "Total, grp2")

这种方式适合需要为汇总行添加额外统计指标或自定义格式的场景。

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