如何在R kableExtra表头插入含希腊符号的LaTeX表达式？

可复现错误示例 #

先给出能复现问题的代码：

---
title: "KableExtra跨列头希腊符号测试"
output: 
  pdf_document:
    includes:
      in_header: preamble.tex # preamble.tex中需包含\usepackage{siunitx}
---

\newcommand{\ugmc}{\si{\micro\gram\per\cubic\meter}}

```{r}
library(knitr)
library(kableExtra)

# 测试数据
df <- data.frame(
  Site = c("A", "B", "C"),
  Mean = c(23.5, 31.2, 18.7),
  SD = c(4.2, 5.8, 3.9)
)

# 错误用法：用R的expression构造表头会失败
kable(df, format = "latex", booktabs = TRUE) %>%
  add_header_above(c(" " = 1, expression(paste("PM10 [", mu*g~m^-3, "]")) = 2))

### 核心原因
`add_header_above`默认会转义所有输入文本，R的`expression()`对象无法直接被LaTeX解析，必须直接传入LaTeX语法字符串并关闭转义机制。

### 可行解决方案
#### 方案1：直接使用LaTeX语法+关闭转义
直接写入LaTeX格式的表头内容，配合`escape = FALSE`参数让LaTeX命令生效：
```rmarkdown
```{r}
kable(df, format = "latex", booktabs = TRUE) %>%
  add_header_above(
    c(" " = 1, "PM10 [\\si{\\micro\\gram\\per\\cubic\\meter}]" = 2),
    escape = FALSE
  )

#### 方案2：利用已定义的`\ugmc`命令
复用你已经定义的TeX命令，同样需要关闭转义：
```rmarkdown
```{r}
kable(df, format = "latex", booktabs = TRUE) %>%
  add_header_above(
    c(" " = 1, "PM10 [\\ugmc]" = 2),
    escape = FALSE
  )

#### 方案3：用数学环境单独插入希腊符号
如果只需要简单的希腊符号，用`$\mu$`包裹，配合`escape = FALSE`：
```rmarkdown
```{r}
kable(df, format = "latex", booktabs = TRUE) %>%
  add_header_above(
    c(" " = 1, "PM10 [$\mu$g/m³]" = 2),
    escape = FALSE
  )

### 关键注意事项
- 确保`kable()`的`format`参数设置为`"latex"`，适配PDF输出场景
- 必须开启`add_header_above(escape = FALSE)`，否则LaTeX命令会被转义为普通文本
- 避免用R的`expression()`或`paste()`构造表头，直接使用纯LaTeX语法字符串更可靠

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