R语言使用gt包时如何在表格主体中添加简单上标？

实现方法 #

有两种非常简便的实现方式，都不需要复杂的自定义逻辑：

方法1：修改原始数据+格式渲染 #

直接在需要上标的内容处套HTML上标标签<sup>2</sup>，再用fmt_markdown()渲染对应列即可：

library(dplyr)
library(gt)

`table3-2` <- tribble(
  ~Quantity, ~Value,
  "Residual standard error", 3.26,
  "R<sup>2</sup>", 0.612,
  "F-statistic", 312.1
)

`table3-2` %>% 
  gt() %>%
  fmt_markdown(columns = Quantity)

方法2：不改原始数据，直接转换单元格内容 #

如果需要保留原始数据的R2写法，可以用text_transform()定位对应单元格直接修改渲染内容：

library(dplyr)
library(gt)

`table3-2` <- tribble(
  ~Quantity, ~Value,
  "Residual standard error", 3.26,
  "R2", 0.612,
  "F-statistic", 312.1
)

`table3-2` %>% 
  gt() %>%
  text_transform(
    locations = cells_body(columns = Quantity, rows = Quantity == "R2"),
    fn = function(x) "R<sup>2</sup>"
  )

两种方法运行后都可以得到带右上标2的R²效果。

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