如何在gtable包生成的表格中正确显示指数（上标）符号？

你的问题出在expression()是base R绘图系统的语法，gt包的tab_header()并不支持直接解析它，要实现上标效果，用以下两种方法即可：

方法1：使用HTML格式 #

借助<sup>标签实现上标，并用html()函数包裹内容告诉gt这是HTML代码：

library(gt)

# 构造示例表格数据
sample_df <- data.frame(
  Trial = 1:4,
  Removal_Rate = c(75, 82, 88, 91)
)

sample_df %>%
  gt() %>%
  tab_header(
    title = html("Ni<sup>2+</sup> Remediation"),
    subtitle = "Trials 1-4"
  )

方法2：使用gt支持的Markdown格式 #

用^包裹需要上标的内容，再用md()函数标记为markdown语法：

sample_df %>%
  gt() %>%
  tab_header(
    title = md("Ni^2+^ Remediation"),
    subtitle = "Trials 1-4"
  )

两种方法都能让"2+"正确显示为Ni的上标，选你习惯的方式用就行。

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