R：`gtsummary` 表中的 Markdown 或 HTML 标记

Question

我有一个 table 变量名通常用上标或下标数字拼写。我正在使用 R 包 {gtsummary} 从数据 frame/tibble.

的 select 列自动创建 table

说这是小标题：

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（HTML Air<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() 或 gt::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 table 中使用 HTML and/or 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))

R：`gtsummary` 表中的 Markdown 或 HTML 标记

R: Markdown or HTML markup in `gtsummary` tables

r

r-markdown

gtsummary

gt