将 lapply 列表转换为数据框答案

【问题标题】：turning a lapply list into a dataframe将 lapply 列表转换为数据框
【发布时间】：2020-10-21 19:53:21
【问题描述】：

我正在使用以下代码运行日志回归，将“i”替换为一堆预先指定的变量。

fits <- lapply(vars, function(x) {glm(substitute(outcome ~ staticPredictor + i, 
        list(i = as.name(x))), family=binomial, data = data)})

我能够打印出带有系数和 p 值的列表，但我希望将这些列表转换为具有以下标题的数据框：

[modelname] [staticPredictor 系数] [i 系数] [staticPredictor p-value] [i p-value]。

这是我目前能够填充的列表的代码

coeffs <- lapply(fits, coefficients) 
pvals <- sapply(fits, function(f) summary(f)$coefficients[,4])

谢谢！！！！

【问题讨论】：

【解决方案1】：

我们可以从broom使用tidy

library(purrr)
library(broom)
map_dfr(fits, tidy)

【讨论】：