如何在R的kable表格与ggplot中添加上标和下标？

方法1：HTML格式输出（适配网页/在线文档） #

直接把单位字符串里的-1替换成HTML上标标签<sup>-1</sup>，生成表格时关闭转义，让HTML自动解析标签：

library(kableExtra)

# 原始数据
df <- data.frame("X"=c("Unit", "Mean", "CV"),
                 "Total C" = c("g kg-1", 8.16, 5.94),
                 "Total N" = c("g kg-1", 0.51, 7.97))

# 替换Unit行的-1为HTML上标格式
df[1, -1] <- gsub("-1", "<sup>-1</sup>", df[1, -1])

# 生成HTML表格（escape=FALSE必须设置，否则标签会被转成纯文本）
kable(df, format = "html", escape = FALSE) %>% 
  kable_styling()

方法2：LaTeX格式输出（适配PDF文档） #

把-1替换成LaTeX的上标语法$^{-1}$，同样关闭转义让LaTeX解析公式：

library(kableExtra)

# 原始数据
df <- data.frame("X"=c("Unit", "Mean", "CV"),
                 "Total C" = c("g kg-1", 8.16, 5.94),
                 "Total N" = c("g kg-1", 0.51, 7.97))

# 替换Unit行的-1为LaTeX上标格式
df[1, -1] <- gsub("-1", "$^{-1}$", df[1, -1])

# 生成LaTeX表格
kable(df, format = "latex", escape = FALSE) %>% 
  kable_styling()

关于expression()无效的原因 #

expression()是R绘图系统（比如ggplot、基础绘图）专用的语法，表格渲染（HTML/LaTeX）不识别R的expression对象，必须用对应格式的标记语言语法来实现上标。

用text_spec精细化控制（可选） #

如果需要给上标加额外样式（比如颜色、字体），可以用text_spec组合文本：

df[1, "Total C"] <- paste0(
  text_spec("g kg", format = "html"),
  text_spec("-1", format = "html", superscript = TRUE, color = "darkblue")
)

# 生成表格时仍需设置escape=FALSE
kable(df, format = "html", escape = FALSE) %>% kable_styling()

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