在批量建模后容易得到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結果
?
?
)
