如何用kableExtra在PDF输出中实现多行复合表头？

针对你用kableExtra构建PDF表格时遇到的三个问题，这里给出修改后的代码，直接实现目标样式：

修改要点 #

• 保留第2、3列的上方表头：仅在顶部表头中指定覆盖第2、3列的内容，第1、4列不设置占位项，避免生成多余分隔线
• 第1、4列表头垂直居中且无分隔线：通过表头行对齐设置实现垂直居中，结合列边框控制移除不必要的分隔线
• 第4列表头换行无空白：在列名中用\\newline手动拆分长文本，搭配列宽设置确保换行紧凑

完整代码 #

---
title: "Example Table"
format:
  pdf:
    pdf-engine: xelatex
    mainfont: "Barlow"
    include-in-header: 
      text: |
        \\setlength{\\arrayrulewidth}{0.35mm}
        \\renewcommand{\\arraystretch}{1.8} 
        \\arrayrulecolor{white}
        \\usepackage{makecell} % 优化表头垂直居中和换行渲染
---
```{r}
library(kableExtra)

df <- data.frame(
  age = 1:3,
  table1 = 1:3 / 10,
  table2 = 1:3 / 100
)

df$diff <- df$table1 - df$table2

colhd <- "#548235"
colbd <- "#FFF2CC"

kable(df, format = "latex",
      col.names = c("Age", "Table 1", "Table 2",
                    "Difference\\newline between\\newline Table 1 and Table 2"),
      booktabs = FALSE) |> 
  # 仅给第2、3列添加顶部表头，关闭全局分隔线
  add_header_above(header = c(" " = 1, "Table Number" = 2, " " = 1),
                   background = colhd, color = "white",
                   line = FALSE) |> 
  # 设置表头行垂直居中，保留背景色和文字颜色
  row_spec(0, background = colhd, color = "white", align = "c") |> 
  row_spec(1:3, background = colbd, color = "black") |> 
  # 处理第1列：保留背景色，移除顶部和左侧多余边框
  column_spec(1, background = colhd, color = "white",
              border_left = FALSE, border_top = FALSE) |> 
  # 处理第4列：垂直居中，移除顶部和右侧边框，设置列宽确保换行紧凑
  column_spec(4, align = "c", border_right = FALSE, border_top = FALSE,
              width = "3cm") |> 
  # 仅给第2、3列添加顶部与表头之间的分隔线
  add_hline(linesep = "", col = "white", row = 0)

## 代码说明
1. 引入`makecell`宏包：解决LaTeX环境下表头垂直居中和换行的渲染问题
2. 第4列列名用`\\newline`拆分：手动控制换行位置，避免自动换行产生的空白
3. `add_header_above`关闭全局分隔线：避免第1、4列顶部出现不必要的线条，之后仅针对第2、3列手动添加分隔线
4. `column_spec`精细化控制列边框：移除第1、4列与顶部表头之间的分隔线，同时保留必要的样式
5. `row_spec(0, align = "c")`：让所有表头单元格实现垂直居中

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