r - 带有 Rmarkdown 的 gt 表中的数学单位

Question

我有这个数据框:

df = data.frame(a = c("$B_{a}$", "$m^{a}$"))

当我在 Rmarkdown 中使用 kable 制作表格时，如下所示:

df %>% knitr::kable()

knit 到 pdf_document，我明白了:

这是我所期望的。

现在，我想重现同一张表，但使用包 gt。当我这样做时:

library(gt)
df %>% gt()

我明白了:

我还需要做什么才能让 gt 表“理解”这些是数学符号？

Answer 1

<sub></sub>和 <sup></sup>与 gt 一起工作.一种选择是使用 str_remove/str_replace 将原始数据集列中的字符替换为 html 语法。来自 stringr

library(gt)
library(stringr)
library(dplyr)
df %>%
    mutate(a = str_remove_all(a, "[{}$]") %>% 
         str_replace_all( c('(.)_(.)', "(.)\\^(.)"),
           c("\\1<sub>\\2</sub>", "\\1<sup>\\2</sup>"))) %>%
     gt() %>%
     fmt_markdown(columns = everything())

-输出