gtsummary - 使用 gtsummary 显示多个模型的 r 平方、aic、bic 和偏差
问题描述
希望在合并输出中为此处的四个模型中的每一个提供 r 平方、aic、bic 和偏差值
mod0 <- lm(surv_time ~ Age + Gender + Education + `Standardized MoCA`, data = surv_tbldata_converters)
mod1 <- lm(surv_time ~ Age + Gender + Education + `Global Composite`, data = surv_tbldata_converters)
mod2 <- lm(surv_time ~ Age + Gender + Education + `Standardized MoCA`, data = surv_tbldata)
mod3 <- lm(surv_time ~ Age + Gender + Education + `Global Composite`, data = surv_tbldata)
mod0_tbl <- mod0 %>%
tbl_regression(exponentiate = F) %>%
add_glance_source_note(include = c(r.squared, AIC, BIC, deviance))
mod1_tbl <- mod1 %>%
tbl_regression(exponentiate = F) %>%
add_glance_source_note(include = c(r.squared, AIC, BIC, deviance))
mod2_tbl <- mod2 %>%
tbl_regression(exponentiate = F) %>%
add_glance_source_note(include = c(r.squared, AIC, BIC, deviance))
mod3_tbl <- mod3 %>%
tbl_regression(exponentiate = F) %>%
add_glance_source_note(include = c(r.squared, AIC, BIC, deviance))
# merge tables
tbl_merge(tbls = list(mod2_tbl, mod3_tbl, mod0_tbl, mod1_tbl),
tab_spanner = c("**MoCA Model (Full Sample)**", "**Global Composite Model (Full Sample)**", "**MoCA Model (Converters Only)**", "**Global Composite Model (Converters Only)**")) %>%
modify_header(label = "**Predictor**") %>%
modify_caption("**Table 3. Study One Model Comparisons**") %>%
bold_labels()
解决方案
该add_glance_source_note()
函数将统计信息添加为源注释,并且该表可能只有一个源注释。使用该add_glance_table()
功能将统计信息添加到表格底部,您将能够毫无问题地合并表格。下面的例子!
library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.4.1'
lm1 <- lm(age ~ trt + grade, trial)
lm2 <- lm(marker ~ trt + grade, trial)
tbl1 <-
tbl_regression(lm1) %>%
add_glance_table(include = c(r.squared, AIC, BIC, deviance))
tbl2 <-
tbl_regression(lm2) %>%
add_glance_table(include = c(r.squared, AIC, BIC, deviance))
tbl_all <- tbl_merge(list(tbl1, tbl2))
由reprex 包创建于 2021-06-08 (v2.0.0 )
推荐阅读
- java - OnClick 打开 Activity1 但将 EXTRA_TEXT 发送到 Activity10...是否需要字符串或者我可以简单地使用意图?如果有帮助,可以发布 XML
- c# - 在 c# 中写入文件时如何使用变量显示双引号?
- javascript - $ npm install eslint -g = -bash: $: 找不到命令
- python - dev_appserver.py 找不到 pkg_resources
- spring - Thymeleaf 在 Asterisk 中处理空对象
- html - 如何将两列连续居中?
- c# - 具有管理员访问权限,但抛出 System.ComponentModel.Win32Exception:“访问被拒绝。”
- salesforce - Salesforce DB 保留字段名称
- python - 使用python在excel中插入图片
- reactjs - 为什么在 React 中单击按钮后 UI 不更新?