r - R：“gtsummary”表中的 Markdown 或 HTML 标记

Question

我有一个变量名的表，通常用上标或下标数字拼写。我正在使用 R 包{gtsummary}从数据框/小标题的选择列中自动创建表。

说这是小标题：

library(nycflights13)

lm_1 <- lm(arr_delay ~ air_time, flights)

tbl_1 <- tbl_regression(lm_1, exponentiate = F,
                        label = list(
                            air_time ~ "Air Time"
                        )) %>% 
    add_glance_source_note(include = c('r.squared'))

tbl_1

…但我需要将其写为 Air ^time（HTMLAir<sup>time</sup>或 Markdown Air~time~）。

在{gtsummary}，在 HTML 或 Markdown 中指定label参数对我不起作用：

tbl_1 <- tbl_regression(lm_1, exponentiate = F,
                        label = list(
                            air_time ~ "Air<sup>time</sup>",
                            sched_dep_time ~ "Departure^time^"
                        )) %>% 
    add_glance_source_note(include = c('r.squared'))

我尝试将字符串包裹在gt::html()orgt::md()但它没有改变任何东西：

tbl_1 <- tbl_regression(lm_1, exponentiate = F,
                        label = list(
                            air_time ~ html("Air<sup>time</sup>"),
                            sched_dep_time ~ md("Departure^time^")
                        )) %>% 
    add_glance_source_note(include = c('r.squared'))

是否可以在gtsummary表格中使用 HTML 和/或 Markdown？谢谢！

Answer 1

老实说，我不知道为什么这个解决方案有效……但它确实有效！{gt} 包有一个函数fmt_markdown()，用于将 markdown 语法转换为指定的输出类型。但是在您的示例中，无法识别降价上标（更多关于为什么在这里https://github.com/rstudio/gt/issues/129#issuecomment-663753251）。BUUUUT，当我将该函数应用于您的 HTML 标记上标时，它们会被识别并且您会得到您正在寻找的输出。

library(gtsummary)
library(nycflights13)

lm_1 <- lm(arr_delay ~ air_time + sched_dep_time , flights)

tbl_regression(lm_1, 
               label = list(air_time ~ "Air<sup>time</sup>",
                            sched_dep_time ~ "Departure<sup>time</sup>")) %>% 
  add_glance_source_note(include = 'r.squared') %>%
  as_gt() %>%
  gt::fmt_markdown(columns = vars(label))