我正在将模型拟合到数据集中的每个组。我通过分组变量嵌套数据,然后使用映射将模型拟合到每个组。然后,我将整理后的模型信息存储为嵌套小标题中的列。
我想将每一列保存为自己的文件,本示例将它们保存为 Excel 工作簿中的工作表。
有没有办法不将每一列单独解除嵌套作为新的小标题?是否可以立即将所有列取消嵌套到新的 tibbles 列表中?一个可以用于其他功能(例如写入 Excel 文件)的函数?
library(tidyverse)
library(broom)
data(mtcars)
df <- mtcars
nest.df <- df %>% nest(-carb)
results <- nest.df %>%
mutate(fit = map(data, ~ lm(mpg ~ wt, data=.x)),
tidied = map(fit, tidy),
glanced = map(fit, glance),
augmented = map(fit, augment))
glanced.df <- results %>%
unnest(glanced, .drop=T)
tidied.df <- results %>%
unnest(tidied, .drop=T)
augmented.df <- results %>%
unnest(augmented, .drop=T)
myList <- list(glanced.df, tidied.df, augmented.df)
names(myList) <- c("glance", "tidy", "augment")
openxlsx::write.xlsx(myList, file = "myResults.xlsx")