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()
和 knit
到 pdf_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())
-输出
我有这个dataframe
:
df = data.frame(a = c("$B_{a}$", "$m^{a}$"))
当我在 Rmarkdown
中使用 kable
制作 table 时,像这样:
df %>% knitr::kable()
和 knit
到 pdf_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())
-输出