r - 合并两个 tbl_regression 表时不合并列
问题描述
在 gtsummary 包中使用tbl_regression
函数我试图堆叠两个线性回归表。一个有一个额外的列,另一个没有。尝试使用该tbl_merge()
功能时,会并排创建两个表,而不是完全堆叠的表(见下图)。
无论如何堆叠两个回归表,以便合并列,并且只有以下四列之一Beta, 95% CI1,p-value,p-trend?
# load packages
library(gtsummary)
theme_gtsummary_compact()
# model 1 ------------------------------------------------------------------
# model cyl as a categorical
mod1 <- lm(mpg ~ cyl, data = mtcars %>% dplyr::mutate(cyl = factor(cyl)))
# model cyl as continuous (p-trend)
mod2 <- lm(mpg ~ cyl, data = mtcars)
# summarize primary model
tbl1 <- tbl_regression(mod1)
# summarize model with p-trend, and hide the estimate and CI
tbl2 <- tbl_regression(mod2) %>%
modify_table_header(c(estimate, ci), hide = TRUE) %>%
modify_header(p.value ~ "**p-trend**")
# merge primary model and p-trend
tbl3 <- tbl_merge(list(tbl1, tbl2)) %>%
# remove spanning header
modify_spanning_header(everything() ~ NA)
# model 2 ------------------------------------------------------------------
# model cyl as a categorical
mod3 <- lm(mpg ~ carb, data = mtcars)
# summarize primary model
tbl4 <- tbl_regression(mod3) %>%
# remove spanning header
modify_spanning_header(everything() ~ NA)
# merge model 1 and 2 ------------------------------------------------------
bl3 <- tbl_merge(
tbls = list(tbl3, tbl4)
)
bl3
解决方案
推荐阅读
- python - 同时运行多个python脚本
- aframe - 如何防止用户通过 webvr 应用程序中的对象?
- html - 中心 DOM 在 li 内创建图像
- angular - 更新绑定对象的内容时不会触发 onChanges
- scala - 使用cats.Contravariant类型类
- python - 在python中将字符串转换为列表
- javascript - 变量不会同时从 React setState 改变
- vmware - VMWare 工作站的 BIOS 配置
- node.js - 使用更多 vCPU 是否有助于 node.js 提高性能?
- php - Typo3 8.7.x / Typoscript:在typoscript lib中使用流体参数