如何在R语言的数据框（data frame）中为文本添加上标？

R的数据框本身只是存储数据的容器，View()函数默认不会渲染HTML或数学表达式格式，所以你之前用<sup>标签或expression()的写法在View()里看不到效果是正常的。具体实现上标需要根据你最终的使用场景（导出表格、绘图等）选择对应方法：

1. 导出带格式的表格（如Word/HTML） #

如果要生成美观的可导出表格，推荐用kableExtra包，直接存储HTML格式的字符串，让渲染工具解析：

# 加载包
library(kableExtra)

# 构造带HTML上标的数据框
df <- data.frame(
  Variable = c(
    "Variable 1 (mg L<sup>-1</sup>)",
    "Variable 2 (g kg<sup>-1</sup>)",
    "Variable 3 (ppt)"
  ),
  `Location 1` = c(1.2, 3.4, 5.6),
  `Location 2` = c(2.3, 4.5, 6.7),
  `p-value` = c(0.01, 0.05, 0.8)
)

# 生成带格式的表格，escape=FALSE允许解析HTML标签
kable(df, escape = FALSE) %>%
  kable_styling()

运行后会在RStudio的Viewer里显示带正确上标的表格，也可以用save_kable()导出为Word或HTML文件。

2. 在ggplot2绘图中显示上标 #

如果要在图表的坐标轴或标签里用上标，有两种常用方式：

方式一：用ggtext解析HTML标签 #

ggtext包支持直接解析HTML格式的文本，适合习惯写HTML的场景：

library(ggplot2)
library(ggtext)

ggplot(df, aes(x = Variable, y = `Location 1`)) +
  geom_col(fill = "#2E86AB") +
  # 让x轴文本解析HTML格式
  theme(axis.text.x = element_markdown(angle = 45, hjust = 1))

方式二：用R的数学表达式 #

如果更习惯R的语法，可以用expression()或bquote()构造表达式，注意要把数据框的列用I()包裹以保留表达式类型：

# 构造带表达式的数据框
df_expr <- data.frame(
  Variable = I(c(
    expression(Variable~1~(mg~L^{-1})),
    expression(Variable~2~(g~kg^{-1})),
    expression(Variable~3~(ppt))
  )),
  `Location 1` = c(1.2, 3.4, 5.6),
  `Location 2` = c(2.3, 4.5, 6.7),
  `p-value` = c(0.01, 0.05, 0.8)
)

ggplot(df_expr, aes(x = Variable, y = `Location 1`)) +
  geom_col(fill = "#2E86AB")

3. 关于View()的说明 #

View()工具仅用于查看数据的原始内容，不会渲染任何格式标记，所以你看到的<sup>标签或表达式文本是正常现象。只要在支持格式渲染的工具（如kableExtra、ggplot2）中使用这些数据，就能正确显示上标。

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