整洁化每个线性回归模型
您已经对每个嵌套数据集进行了线性回归，并将线性模型保存在列表列 model 中。但在将这些模型重新合并之前，需要先将每个模型「整洁化」，也就是整理为一个系数表。为此，您需要再使用一次 map()，并结合 broom 包中的 tidy() 函数。
回忆一下，您可以直接把函数传给 map()（例如 map(models, tidy)），从而将该函数应用到列表中的每个元素。
本练习是课程的一部分
案例研究：R 中的探索性数据分析
练习说明
- 加载
broom包。 - 使用
map()函数将tidy()函数应用到model列中的每个线性模型，创建一个名为tidied的新列。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Load the broom package
# Add another mutate that applies tidy() to each model
by_year_country %>%
nest(-country) %>%
mutate(model = map(data, ~ lm(percent_yes ~ year, data = .)))