如何在R的flextable中合并首列表头行并设置指定表头字体颜色

1. 模拟已整理数据 #

先构造一个符合多层表头场景的示例数据（匹配你已完成的数据结构整理状态）：

library(tidyverse)
library(flextable)

# 模拟你的目标数据框结构
df <- tibble(
  category = c("Type 1", "Type 2", "Type 3", "Type 1", "Type 2", "Type 3"),
  group = c("group a", "group a", "group a", "group b", "group b", "group b"),
  `2023` = c(10, 20, 30, 15, 25, 35),
  `2024` = c(12, 22, 32, 17, 27, 37)
) %>%
  pivot_wider(names_from = group, values_from = c(`2023`, `2024`))

2. 实现两个需求的代码 #

步骤1：构建基础表格并合并首列表头 #

通过merge_at()合并首列的两行表头，并设置统一名称：

ft <- flextable(df) %>%
  # 添加顶层表头行，构建多层表头结构
  add_header_row(
    values = c("", "Group A", "Group A", "Group B", "Group B"),
    colwidths = c(1, 2, 2)
  ) %>%
  # 设置底层表头标签
  set_header_labels(
    category = "Subcategory",
    `2023_group a` = "2023",
    `2024_group a` = "2024",
    `2023_group b` = "2023",
    `2024_group b` = "2024"
  ) %>%
  # 合并首列的第1、2行表头单元格
  merge_at(i = 1:2, j = 1, part = "header") %>%
  # 设置合并后的表头文本为"Categories"
  set_header_labels(category = "Categories") %>%
  # 表头居中对齐（可选优化）
  align(align = "center", part = "header")

步骤2：设置“group b”表头为绿色字体 #

通过color()结合文本匹配，定位目标表头单元格并修改颜色：

ft <- ft %>%
  # 匹配表头中包含"Group B"的单元格，设置绿色字体
  color(
    i = ~ str_detect(values, "Group B"),
    color = "#008000", # 标准绿色十六进制代码
    part = "header"
  ) %>%
  # 保留你已设置的边框/条件格式（此处为示例边框）
  border_outer(part = "all", border = fp_border(color = "#000000")) %>%
  border_inner(part = "all", border = fp_border(color = "#cccccc"))

3. 查看或导出表格 #

直接运行ft可在RStudio预览表格，或用以下代码导出为Word文档：

save_as_docx(ft, path = "formatted_table.docx")

内容的提问来源于stack exchange，提问作者Homer Jay Simpson