1. Learn
    2. /
  2. 项目
    3. /
  3. Studium przypadku: eksploracyjna analiza danych w R
Connected

道练习

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.

说明

100 XP
  • Wczytaj pakiety purrr, tidyr oraz broom.
  • Wyświetl zbiór danych by_country_year_topic w konsoli.
  • Dopasuj model liniowy dla każdej kombinacji kraju i tematu w tym zbiorze danych, zapisując wynik jako country_topic_coefficients. Możesz użyć dostarczonego kodu jako punktu wyjścia.
  • Wyświetl zbiór danych country_topic_coefficients w konsoli.