gt table R 正文中的下标和上标

Question

如何让 R 中的 gt table 显示 subscripts/superscripts？我希望同位素列中的数字显示为上标。

library(gt)  

Isotope <- c("1H", "2H", "16O", "17O", "18O")
Abundance <- c(0.99985, 0.00015, 0.99757, 0.00038, 0.00205)
table <- as.data.frame(cbind(Isotope, Abundance))
table %>% gt()

Answer 1

实现您想要的结果的一个选择是使用 gt::text_transform 和 HTML <sup> 标签，如下所示：

library(gt)  
library(stringr)

Isotope <- c("1H", "2H", "16O", "17O", "18O")
Abundance <- c(0.99985, 0.00015, 0.99757, 0.00038, 0.00205)
table <- data.frame(Isotope, Abundance)
table %>% gt() %>% 
  text_transform(
    locations = cells_body(
      columns = c(Isotope)
    ),
    fn = function(x){
      sup <- str_extract(x, "^\d+")
      text <- str_extract(x, "[^\d]+")
      glue::glue("<sup>{sup}</sup>{text}")
    }
  )

gt table R 正文中的下标和上标

Subscripts and superscripts in body of gt table R

r

superscript

subscript

gt