在R中实现按usage分组的定制化多级表头需求

你之前尝试直接用add_header_above在原始数据上设置表头，但没达到预期，核心原因是你的原始数据是长格式，而你想要的输出是宽格式的布局——得先把数据结构调整成你需要的列排列，再设置分层表头才行。

下面是完整的可复现代码，一步步帮你实现目标：

1. 加载所需包 #

首先确保你安装了tidyverse（用来处理数据结构）和kableExtra（用来美化表格）：

library(tidyverse)
library(kableExtra)

2. 定义原始数据（方便复现） #

先把你提供的数据转换成可操作的数据框：

data <- tibble(
  usage = c("Every Day", "Every Day", "Some Days", "Some Days"),
  flavor = c("Yes", "No", "Yes", "No"),
  variable = "a",
  level = NA,
  mean = c(0.1844236, 0.2074303, 0.1748468, 0.2720068),
  se = c(0.0645649, 0.0830913, 0.0279065, 0.0512438)
)

3. 把长数据转成目标宽格式 #

我们需要把variable、level、mean（以及可选的se）转成行指标，把usage+flavor的组合转成列分组：

wide_data <- data %>%
  # 先把metric列（variable/level/mean/se）转成长格式
  pivot_longer(cols = c(variable, level, mean, se), names_to = "metric") %>%
  # 再转成宽格式，列由usage和flavor组合而成
  pivot_wider(names_from = c(usage, flavor), values_from = value)

转换后的wide_data结构就符合你的列布局需求了：行是各个指标，列是Every Day_Yes、Every Day_No、Some Days_Yes、Some Days_No。

4. 设置分层表头 #

现在用kableExtra的两次add_header_above来实现两层表头：

wide_data %>%
  kable("html", align = "c", escape = FALSE) %>%  # 如果要输出PDF，把"html"改成"latex"
  kable_styling("striped", full_width = FALSE) %>%
  # 第一层表头：EVERY DAY和SOME DAYS，各占2列
  add_header_above(
    c(
      "" = 1,  # 对应左侧的metric列
      "EVERY DAY" = 2,
      "SOME DAYS" = 2
    )
  ) %>%
  # 第二层表头：每个一级表头下的flavor Yes/No
  add_header_above(
    c(
      "" = 1,
      "flavor Yes" = 1,
      "flavor No" = 1,
      "flavor Yes" = 1,
      "flavor No" = 1
    )
  )

效果说明 #

运行这段代码后，你会得到：

• 左侧是指标列（metric），包含variable、level、mean、se
• 右侧第一层表头是EVERY DAY和SOME DAYS，各自包含2列
• 第二层表头对应每个分组下的flavor Yes和flavor No，完全符合你预期的格式。

如果不需要se指标，只需要在pivot_longer的cols参数里去掉se即可。

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