주제와 국가별로 중첩하기

이전 장에서는 각 국가의 데이터를 국가별로 중첩한 뒤, 각 데이터셋에 선형 모델을 적합하고, broom으로 모델 출력을 정리한 다음 계수를 unnest하여 국가별 선형 모델을 만들었습니다. 코드는 다음과 비슷했어요:

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

이번에는 시간에 따른 "찬성 비율" 변화(percentage yes)를 다시 모델링하지만, 국가마다 하나의 모델을 적합하는 대신 국가와 주제의 조합마다 하나의 모델을 적합할 거예요.