Zagnieżdżanie według tematu i kraju

W poprzednim rozdziale zbudowałeś model liniowy dla każdego kraju – zagnieżdżając dane dla poszczególnych krajów, dopasowując model do każdego zbioru danych, a następnie porządkując każdy model za pomocą pakietu broom i wyodrębniając współczynniki. Kod wyglądał mniej więcej tak:

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

Teraz ponownie zbudujesz model zmiany odsetka głosów „tak" w czasie – tym razem jednak zamiast jednego modelu dla każdego kraju, dopasujesz po jednym modelu dla każdej kombinacji kraju i tematu.