按主题和国家进行嵌套

在上一章中，您通过按国家对数据进行嵌套、为每个数据集拟合模型，然后用 broom 整理模型并对系数进行取消嵌套，为每个国家构建了一个线性模型。代码大致如下：

country_coefficients <- by_year_country %>%
  nest(-country) %>%
  mutate(model = map(data, ~ lm(percent_yes ~ year, data = .)),
         tidied = map(model, tidy)) %>%
  unnest(tidied)

现在，您将再次对随时间变化的 "percentage" yes 进行建模，但这次不是为每个国家拟合一个模型，而是为每个国家与主题的组合各拟合一个模型。