R语言 列表中嵌套列名一致的多个数据框如何整合为一个数据框

在批量建模后容易得到list，list中的每个元素都是单个的tibble 或者 dataframe，如何将这些数据整合为一张表呢？

载入R包
 

library(broom)
library(tidyverse)

模拟数据

models <- txhousing %>% group_by(city) %>% do(mod=lm(log2(sales)~factor(month),data = .,na.action = na.exclude))
models
model_sum1 <- map(models$mod,~glance(.))
model_sum1

我们发现有46个列表元素，且列名一致

以下是其中三个 

予以整合

model_sum1dematrix <- data.frame(matrix(unlist(model_sum1), nrow=46, byrow=T),stringsAsFactors=FALSE)
names <- colnames(model_sum1[[1]])
colnames(model_sum1dematrix) <- names
model_sum1dematrix

结果