如何替换gtsummary::tbl_merge合并表中的空单元格为指定标识（含嵌套tbl_merge场景）

我明白你遇到的棘手问题——用tbl_merge合并行数不同的表格（尤其是嵌套合并场景）时，出现的空单元格很难精准定位替换。之前尝试modify_table_styling没成功，核心原因是合并后的表格结构里，空单元格对应的是table_body中stat_*系列列的NA值，而你用的is.na(estimate)没有匹配到这些重命名后的统计列。

下面给你两种高效的解决方案，覆盖普通合并和嵌套合并的所有场景：

方案1：全局替换空单元格（最省心，适配嵌套合并） #

这种方法直接对合并后表格的底层数据操作，不管你是一次合并还是多层嵌套合并，都能一次性把所有空单元格替换成你想要的文本（比如"---"或"Missing"）：

library(gtsummary)
library(dplyr)

tbl_dense <- trial %>% tbl_summary(by = trt)
tbl_sparse <- trial %>% select(trt, response) %>% tbl_summary(by = trt)

# 合并表格并将所有空单元格替换为"---"
tbl_merge(list(tbl_dense, tbl_sparse)) %>%
  modify_table_body(
    ~ .x %>%
      # 匹配所有stat_开头的统计列，替换NA为指定文本
      mutate(across(starts_with("stat_"), ~ ifelse(is.na(.), "---", .)))
  ) %>%
  as_kable()

如果想要替换成"Missing"，只需要把代码里的"---"改成"Missing"即可。对于嵌套合并的场景，这段代码完全不需要调整——starts_with("stat_")会自动匹配所有合并后的统计列，不管嵌套多少层。

方案2：精准替换指定列的空单元格 #

如果你只想替换某一部分列的空单元格（比如只处理第二个表格对应的列），可以用modify_table_styling精准定位列和行：

tbl_merge(list(tbl_dense, tbl_sparse)) %>%
  # 替换第二个表格对应的两列空单元格为"Missing"
  modify_table_styling(
    columns = c(stat_3, stat_4),
    rows = is.na(stat_3) | is.na(stat_4),
    missing_symbol = "Missing"
  ) %>%
  # 可选：替换第一个表格列中的空单元格（如果存在）
  modify_table_styling(
    columns = c(stat_1, stat_2),
    rows = is.na(stat_1) | is.na(stat_2),
    missing_symbol = "Missing"
  ) %>%
  as_kable()

你可以通过names(tbl$table_body)查看合并后表格的所有列名，确认stat_*对应的具体列。

为什么之前的is.na(estimate)没效果？ #

单个tbl_summary表格里的统计列叫estimate，但用tbl_merge合并后，这些列会被重命名为stat_1、stat_2……以此类推，所以直接用is.na(estimate)找不到对应的行和值，自然无法替换空单元格。

内容的提问来源于stack exchange，提问作者maia-sh