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

【问题标题】：How to get multiple regression models from a list of lists to a gtsummary table?如何从列表列表中获取多个回归模型到 gtsummary 表？
【发布时间】：2021-10-11 20:55:22
【问题描述】：

鉴于以下情况，我怎样才能将out 中的两个模型放到gtsummary 表中？

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，但是——我的代码基于this question 的答案——我无法让它工作。

【问题讨论】：

标签： r gtsummary

【解决方案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 日创建}

【讨论】：