使用{gtsummary}的表格的Rmarkdown/knitr标题

Question

在Rmarkdown文档中向gtsummary表格添加标题的最佳选择或建议的工作流程是什么？

例如，我知道有一个用于kable表的函数，所以从理论上讲，可以使用gtsummary::as_kable()将一个表转换为另一个表，但不知何故，这并不是最优的。有什么建议吗？

谢谢!

Answer 1

gt包有许多用于控制gt表的打印方式的函数。我建议您使用as_gt()函数将gtsummary对象转换为gt，然后继续使用gt函数进行自定义。https://gt.rstudio.com/的小例子包含在下面。

​

library(gtsummary)

mod <- glm(response ~ age + grade, trial, family = binomial)

tbl_regression(mod, exponentiate = TRUE) %>% 
  as_gt() %>%
  gt::tab_header("Table 1. Very Informative Model",
                 subtitle = "Highly Confidential")

​

​