如何用kableExtra实现R转LaTeX表格末尾列合并（multicolumn）

直接在数据中插入LaTeX的\multicolumn命令是最直接的解决方案，配合kable的escape=FALSE参数就能实现你要的合并效果，具体步骤如下：

1. 构造带合并代码的数据框 #

先准备你的表格数据，在最后一行对应位置插入\multicolumn{列数}{对齐方式}{内容}的LaTeX代码，注意合并后对应的后续单元格要留空：

library(kableExtra)
library(tibble)

# 示例数据（共8列：2+3+3）
df <- tibble(
  分组1 = c("组A", "组B", "组C", ""),
  分组2 = c("10", "20", "30", ""),
  指标1 = c("85", "90", "78", ""),
  指标2 = c("62", "75", "68", ""),
  指标3 = c("92", "88", "95", ""),
  统计1 = c("0.3", "0.5", "0.2", ""),
  统计2 = c("1.2", "0.9", "1.5", ""),
  统计3 = c("4.8", "5.2", "4.5", "")
)

# 修改最后一行，添加列合并代码
df[nrow(df), ] <- list(
  "\\multicolumn{2}{c}{合计/汇总}",  # 合并前2列，居中对齐
  "",  # 合并后对应位置留空
  "\\multicolumn{3}{c}{指标均值}",   # 合并中间3列
  "", "",  # 对应位置留空
  "\\multicolumn{3}{c}{统计汇总}",   # 合并后3列
  "", ""    # 对应位置留空
)

2. 生成LaTeX表格 #

用kable()生成LaTeX代码时，必须设置escape=FALSE，让LaTeX编译器识别合并命令，再用kableExtra调整样式：

df %>%
  kable(
    format = "latex",
    escape = FALSE,  # 核心：不转义LaTeX代码
    booktabs = TRUE,  # 生成专业的三线表
    col.names = c("分组1", "分组2", "指标1", "指标2", "指标3", "统计1", "统计2", "统计3")
  ) %>%
  kable_styling(
    latex_options = c("striped", "hold_position"),  # 条纹高亮+固定表格位置
    font_size = 10
  )

关键说明 #

• 对齐方式可以修改：c是居中，l左对齐，r右对齐，根据需求替换即可。
• 如果需要给合并单元格加边框，可在\multicolumn里补充边框参数，比如\\multicolumn{2}{|c|}{内容}（需要关闭booktabs，因为booktabs不兼容竖线边框）。
• 若你的原始数据是动态生成的，可通过nrow(df)定位最后一行，自动插入合并代码，无需手动修改。

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