使用 r gt 包如何在 table 的正文中打印一个简单的上标

Question

我想在用 gt 包打印的 table 的一个单元格中包含一个上标。我找到了一个，它展示了如何在更复杂的工作流程中打印上标，但我只需要一个上标。有没有一种简单的方法可以在此处创建的 table 中使用上标 2 打印 R：

library(dplyr)
library(gt)


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

`table3-2` %>% 
  gt()

Answer 1

您只需向 text_transform 提供一个 rows 参数：

`table3-2` %>% 
  gt() %>% 
  text_transform(
    locations = cells_body(
      columns = c(Quantity),
      rows = 2
    ),
    fn = function(x){
      sup <- 1
      text <- "R2"
      glue::glue("<sup>{sup}</sup>{text}")
    }
  )

这会在 R2 上添加一个上标并给出：

Answer 2

最简单的解决方案是使用 unicode 值（如果存在）。对于平方符号，它是 "\U00B2":

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

使用 r gt 包如何在 table 的正文中打印一个简单的上标

With the r gt package how can I print a simple superscript in the body of a table

r

gt