如何使用 R 中的 gtsummary 包向表中的标签添加下标？

Question

我想在使用 R 包 gtsummary 中的 tbl_regression 生成的回归汇总表的变量名中引入下标。任何人都可以提供有关如何执行此操作的指导吗？用于生成表格的代码和结果表格如下所示。我希望标签“NO2”显示为“NO ₂ ”。

library(tidyverse)
library(gtsummary)

case <- c(0,1,0,0,0,0)
no2 <- c(17, 14, 8, 9, 9, 7)
df <- data.frame(case, no2)

mod_adj <- glm(case~no2,data=df, family="binomial")

regression_table_adj <- mod_adj %>% 
  tbl_regression(exponentiate = TRUE,  label = list(no2~"NO2"))

regression_table_adj

^{由reprex 包(v0.3.0)于 2020-03-04 创建}

使用 R 包 gtsummary 中的 tbl_regression 生成的表，显示我想要包含数字下标的系数名称

Answer 1

gtsummary 包默认使用 gt 包打印表格。我浏览了他们的文档，但没有找到在表格正文中包含下标的方法。

好消息是 gtsummary 还支持使用knitr::kable()viaas_kable()函数打印表格。您可以将文本放在两个波浪号之间以使其成为下标（例如label = list(no2 ~ "NO~2~")）。在 R markdown 文件中使用以下代码，您应该获得下标。使用 kable 的缺点是它不支持脚注、缩进和跨页眉。快乐编码！

library(gtsummary)

case <- c(0,1,0,0,0,0)
no2 <- c(17, 14, 8, 9, 9, 7)
df <- data.frame(case, no2)

mod_adj <- glm(case~no2,data=df, family="binomial")

mod_adj %>% 
  tbl_regression(
    exponentiate = TRUE,  
    label = list(no2 ~ "NO~2~")
  ) %>% 
  as_kable()

^{由reprex 包(v0.3.0)于 2020-03-04 创建}