【发布时间】:2021-03-29 13:50:52
【问题描述】:
我还没有看到任何使用gtsummary::tbl_regression 打印模型估计的 SE 的方法。
在使用tbl_regression 打印表格时,有什么方法可以将 SE 添加到模型输出列?
library(gtsummary)
test <- with(trial, lm(marker~trt+age))
tbl_regression(test)
【问题讨论】:
我还没有看到任何使用gtsummary::tbl_regression 打印模型估计的 SE 的方法。
在使用tbl_regression 打印表格时,有什么方法可以将 SE 添加到模型输出列?
library(gtsummary)
test <- with(trial, lm(marker~trt+age))
tbl_regression(test)
【问题讨论】:
在当前的 gtsummary 开发版本中,隐藏和取消隐藏列变得更加容易(虽然在 v1.3.5 中可以实现,但需要更多地了解 gtsummary 的内部结构)。我建议安装开发版本并执行下面的代码。
您可以隐藏或取消隐藏x$table_body 中的任何列(其中x 是gtsummary 对象)。在几乎每个回归模型中,都有一个名为 "std.error" 的隐藏列,下面的代码会打印该列。
http://www.danieldsjoberg.com/gtsummary/dev/reference/modify_column_hide.html
remotes::install_github("ddsjoberg/gtsummary")
library(gtsummary)
packageVersion("gtsummary")
#> [1] "1.3.5.9014"
# hide 95% CI, and replace with standard error
modify_column_hide_ex1 <-
lm(age ~ marker + grade, trial) %>%
tbl_regression() %>%
modify_column_hide(column = ci) %>%
modify_column_unhide(column = std.error)
【讨论】: