gt table 中的数学单位与 Rmarkdown

Mathematical units in gt table with Rmarkdown

我有这个dataframe:

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

当我在 Rmarkdown 中使用 kable 制作 table 时,像这样:

df %>% knitr::kable()

knitpdf_document,我明白了:

这是我所期望的。

现在,我想重现相同的 table,但使用包 gt。当我这样做时:

library(gt)
df %>% gt()

我明白了:

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

<sub></sub><sup></sup>gt 一起使用。一种选择是使用 stringr

中的 str_remove/str_replace 语法将原始数据集列中的字符替换为 html 语法
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())

-输出