r语言如何用tbl_regression函数将多个logistic回归结果做成一张表

在R语言中，`tbl_regression`通常不是直接用于做多个逻辑斯谛回归（Logistic Regression）并汇总到一张表格的函数。然而，你可以结合`broom`和`dplyr`包来实现这个需求。这两个包分别提供了方便的数据整理（tidy）功能和数据操作功能。

首先，你需要安装和加载这两个包：

install.packages("broom")
install.packages("dplyr")

library(broom)
library(dplyr)

然后，假设你已经对每个模型进行了回归，可以分别为每个模型创建`tibble`（类似于数据框），例如：

# 假设你有三个模型叫model1, model2, model3
model_results <- list(model1 = glm(y ~ x1 + x2, data = df1, family = "binomial"),
                       model2 = glm(y ~ x3 + x4, data = df2, family = "binomial"),
                       model3 = glm(y ~ x5 + x6, data = df3, family = "binomial"))

# 使用broom::glance()把每个模型的结果转成tidy格式
results_tbl <- map(model_results, glance) # 使用map函数遍历列表

最后，你可以使用`bind_rows()`或者`bind_cols()`从`list`中组合这些`tibbles`到一起：

all_results <- bind_rows(results_tbl) %>% 
  mutate(model_name = names(model_results)) # 添加列标识模型名称

# 或者，如果你想要列方向的结果
all_results_long <- bind_cols(results_tbl, .id = "model_name") %>%
  pivot_wider(names_from = model_name, values_from = everything())  

现在`all_results`或`all_results_long`就是包含了所有模型摘要信息的表格。