flextable对象分组子组输出汇总统计并添加总计行的实现

核心流程 #

整个实现完全兼容你已经跑通的as_grouped_data()基础逻辑，不需要推翻现有代码框架，仅需补充统计值计算、NA填充、全局总计拼接三个环节即可。

可直接运行的代码实现 #

library(dplyr)
library(flextable)
library(tidyr)

# 1. 生成基础明细宽表（和你现有逻辑完全一致）
data_base <- CO2 %>% 
  group_by(Type, Treatment, conc) %>% 
  summarise(uptake = mean(uptake), .groups = "drop") %>% 
  pivot_wider(names_from = Type, values_from = uptake)

# 2. 预计算两个层级的汇总值
# 2.1 单组汇总：每个Treatment分组下的Quebec、Mississippi列求和
group_summary <- data_base %>% 
  group_by(Treatment) %>% 
  summarise(
    across(c(Quebec, Mississippi), ~sum(.x, na.rm = TRUE)),
    conc = NA_character_
  )

# 2.2 全局总计：所有明细行的Quebec、Mississippi列求和
global_total <- data_base %>% 
  summarise(
    across(c(Quebec, Mississippi), ~sum(.x, na.rm = TRUE)),
    Treatment = "全局总计",
    conc = NA_character_
  )

# 3. 生成标准分组结构，将分组行的占位NA替换为组汇总值
data_grouped <- as_grouped_data(x = data_base, groups = c("Treatment"))
data_grouped <- data_grouped %>% 
  # 匹配对应分组的汇总值
  left_join(group_summary, by = "Treatment", suffix = c("", "_summary")) %>% 
  # 仅对分组头行（Treatment列非空的行）填充汇总值
  mutate(
    conc = ifelse(!is.na(Treatment), "组内数值总和", conc),
    Quebec = ifelse(!is.na(Treatment), Quebec_summary, Quebec),
    Mississippi = ifelse(!is.na(Treatment), Mississippi_summary, Mississippi)
  ) %>% 
  select(-ends_with("_summary"))

# 4. 在表格末尾拼接全局总计行
data_final <- bind_rows(data_grouped, global_total)

# 5. 生成适配docx输出的flextable对象
ft <- flextable(data_final) %>% 
  # 合并分组列的跨单元格，保持原有分组排版效果
  merge_v(j = ~Treatment) %>% 
  # 分组头行添加浅灰色背景，突出汇总属性
  bg(i = ~!is.na(Treatment), bg = "#f0f0f0") %>% 
  # 全局总计行添加深灰色背景+加粗，强化视觉区分
  bg(i = nrow(data_final), bg = "#d9d9d9") %>% 
  bold(i = nrow(data_final)) %>% 
  # 统一添加表格边框，自动适配列宽
  border_outer() %>% 
  border_inner() %>% 
  autofit()

# 导出为docx文件
save_as_docx(ft, path = "分组汇总表.docx")

自定义调整说明 #

如果你需要将分组汇总行放在每个子组的底部而非默认的顶部位置，仅需调整数据拼接逻辑，不需要修改后续的表格样式配置：

# 分组行位于组内底部的调整代码
data_grouped_bottom <- data_base %>% 
  group_split(Treatment) %>% 
  lapply(function(sub_group){
    # 先放子组的所有明细行，再放对应组的汇总行
    sub_group_summary <- sub_group %>% 
      summarise(
        across(c(Quebec, Mississippi), ~sum(.x, na.rm = TRUE)),
        Treatment = unique(Treatment),
        conc = "组内数值总和"
      )
    bind_rows(sub_group, sub_group_summary)
  }) %>% 
  bind_rows() %>% 
  # 最后拼接全局总计行
  bind_rows(global_total)

# 后续生成表格、导出docx的逻辑和上面完全一致
ft_bottom <- flextable(data_grouped_bottom) %>% 
  merge_v(j = ~Treatment) %>% 
  bg(i = ~!is.na(conc) & conc == "组内数值总和", bg = "#f0f0f0") %>% 
  bg(i = nrow(data_grouped_bottom), bg = "#d9d9d9") %>% 
  bold(i = nrow(data_grouped_bottom)) %>% 
  border_outer() %>% 
  border_inner() %>% 
  autofit()

实际使用注意事项 #

• 计算聚合统计值时，建议统一加上na.rm = TRUE参数，避免明细行存在空值时，组汇总、全局总计的计算结果被空值干扰
• 用flextable做单元格合并时，仅合并分组维度列（本示例中为Treatment列）即可，不要跨数值列合并，否则汇总数值会被合并操作覆盖丢失
• 如果需要替换求和为其他统计量（如平均值、最大值），仅需修改summarise()函数内的聚合函数即可，整体逻辑保持不变
• 整体逻辑和数据处理语法无关，如果习惯用data.table实现，仅需替换聚合、行拼接的代码语法即可，不需要调整flextable的样式配置逻辑
• 导出docx文件时，flextable的样式会直接映射为Word原生格式，不需要在Word端二次调整

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