如何从列表列表中获取多个回归模型到 gtsummary 表？

Question

鉴于以下情况，我怎样才能gtsummary out中？

library(dplyr)
library(purrr)

m.1.1 <- "cyl"
m.1.2 <- paste(c(m.1.1, "disp"), collapse = " + ")

out <- map(dplyr::lst(m.1.1, m.1.2), 
           ~ lm(data = mtcars, formula = as.formula(paste0("mpg ~ ", .x))))

我想我想使用tbl_regression和tbl_merge ，但是——基于我的代码对这个问题的回答——我无法让它工作。

Answer 1

你是对的，你可以使用tbl_regression()和tbl_merge()来准备表格。 下面的例子！

library(gtsummary)
library(tidyverse)

tbl <- 
  c("cyl", "cyl + disp") %>%            # vector of covariates
  map(
    ~ paste("mpg", .x, sep = " ~ ") %>% # build character formula
      as.formula() %>%                  # convert to proper formula
      lm(data = mtcars) %>%             # build linear regression model
      tbl_regression()                  # display table with gtsummary
  ) %>%
  # merge tables into single table
  tbl_merge(
    tab_spanner = c("**Univariate**", "**Multivariable**")
  )

^{由reprex package (v2.0.1) 创建于 2021-10-11}