有一种方法可以在 gtsummary::tbl_regression() 中添加一个包含测试统计信息的列吗？

Question

有没有一种方法可以将每个变量的统计数据作为列添加到 tbl_regresion() 中，使用 {gtsummary}？在心理学中，审稿人期望表格中出现此列的情况并不少见。

使用{sjPlot}时，只需要添加show.stat参数，就会出现Statistic列，显示t value from [=16] =].

library(gtsummary)
library(sjPlot)
  
model <- lm(mpg ~ cyl + wt, data = mtcars)  
tab_model(model, show.stat = TRUE)

使用 {gtsummary} 我无法在任何地方找到如何在使用 tbl_regression() 时添加等效列。只想显示一个列，其中包含模型中已经存在的值。

library(gtsummary)      
model <- lm(mpg ~ cyl + wt, data = mtcars)
  
stats_to_include =c("r.squared", "adj.r.squared", "nobs")
tbl_regression(model, intercept = TRUE, show_single_row = everything()) %>% 
  bold_p() %>% 
  add_glance_table(include = all_of(stats_to_include))

Answer 1

是的！统计列已在 table 中，但默认情况下处于隐藏状态。您可以使用 modify_column_unhide() 函数取消隐藏它（和其他列）。示例如下！

library(gtsummary) 
packageVersion("gtsummary")
#> [1] '1.5.2'

model <- lm(mpg ~ cyl + wt, data = mtcars)

tbl <-
  tbl_regression(model, intercept = TRUE, show_single_row = everything()) %>% 
  bold_p() %>% 
  add_glance_table(include = c(r.squared, adj.r.squared, nobs)) %>%
  modify_column_unhide(columns = c(statistic, std.error))

^{由 reprex package (v2.0.1)}

创建于 2022-02-07

仅供参考，如果您有兴趣，我们还支持 gtsummary 中的期刊主题。例如，您可以加载 JAMA 主题，然后 gtsummary 结果将 auto-formatted 用于在 JAMA 中发布。我们没有心理学主题，但如果您提交 GitHub 问题，我们可以合作添加一个。我们可以添加一些东西，比如默认显示统计列（以及更多）。

https://www.danieldsjoberg.com/gtsummary/reference/theme_gtsummary.html

有一种方法可以在 gtsummary::tbl_regression() 中添加一个包含测试统计信息的列吗？

There is a way to add a column with the test statistics in gtsummary::tbl_regression()?

gtsummary