如何在R中从含缺失值的数据框生成多级表头表格？

不需要拆分数据框再合并，而是先将长格式数据转换为宽格式（保留所有行结构，即使存在NA），再用gt的表头分组功能实现多级表头。

步骤1：整理数据为宽格式 #

先通过pivot_wider将数据转换为宽表，确保PRE和POST对应的列拥有完全一致的行数（缺失值保留为NA，不会丢失行）：

library(dplyr)
library(tidyr)
library(gt)

# 原始数据
df <- data.frame(CONDITION = c(rep("PRE", 6), rep("POST", 6)),
                 CLASS = c(rep(c(rep("B1",3), rep("B2",3)),2)),
                 REGION = c("A1", "A2", "A3", "A1", "A2", "A3", "A1", "A2", "A3", "A1", "A2", "A3"),
                 VALUE = c(1,2,3,4,5,6,7,NA,9,10,11,NA)
)

# 转换为宽格式，保留所有行
df_wide <- df %>%
  pivot_wider(
    id_cols = c(CLASS, REGION),  # 行标识：类别+区域
    names_from = CONDITION,      # 列的上层：PRE/POST
    values_from = VALUE,         # 单元格值
    names_glue = "{CONDITION}_{CLASS}_{REGION}"  # 列名格式：条件_类别_区域
  ) %>%
  arrange(CLASS, REGION)  # 按类别、区域排序

步骤2：用gt创建多级表头表格 #

利用tab_spanner或tab_spanner_delim自动生成多级表头，同时格式化缺失值为更友好的显示：

方法1：自动拆分列名生成多级表头

df_wide %>%
  gt() %>%
  # 根据下划线拆分列名，自动生成两级表头（第一级：PRE/POST；第二级：类别_区域）
  tab_spanner_delim(delim = "_", columns = starts_with(c("PRE", "POST"))) %>%
  # 设置表头标题
  tab_header(title = "按条件分组的数值表") %>%
  # 重命名行标识列
  cols_label(CLASS = "类别", REGION = "区域") %>%
  # 将NA替换为"-"
  fmt_missing(columns = everything(), missing_text = "-")

方法2：手动自定义表头分组

如果需要更精细的列名控制，可以手动指定表头分组和列名：

df_wide %>%
  gt() %>%
  # 为PRE相关列设置上层表头
  tab_spanner(label = "预处理（PRE）", columns = starts_with("PRE_")) %>%
  # 为POST相关列设置上层表头
  tab_spanner(label = "后处理（POST）", columns = starts_with("POST_")) %>%
  # 自定义所有列的显示名称
  cols_label(
    CLASS = "类别",
    REGION = "区域",
    PRE_B1_A1 = "B1-A1",
    PRE_B1_A2 = "B1-A2",
    PRE_B1_A3 = "B1-A3",
    PRE_B2_A1 = "B2-A1",
    PRE_B2_A2 = "B2-A2",
    PRE_B2_A3 = "B2-A3",
    POST_B1_A1 = "B1-A1",
    POST_B1_A2 = "B1-A2",
    POST_B1_A3 = "B1-A3",
    POST_B2_A1 = "B2-A1",
    POST_B2_A2 = "B2-A2",
    POST_B2_A3 = "B2-A3"
  ) %>%
  # 格式化缺失值
  fmt_missing(columns = starts_with(c("PRE", "POST")), missing_text = "-")

为什么之前的方法失败？ #

你之前拆分数据后用drop_na，导致PRE和POST对应的行数量不一致（PRE有6行，POST只有4行），cbind要求两个数据框行数完全匹配，因此报错。而先转宽格式的方式会保留所有行结构，即使POST存在缺失值，也会对应保留行位置，确保所有列行数一致。

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