Nakładające się wykresy gęstości

W tym ćwiczeniu nauczysz się tworzyć wykresy gęstości i nakładać je na siebie, aby porównać rozkład ocen krytyków dla trzech wydawców gier: Activision, Electronic Arts i Nintendo.

Aby utworzyć wykres gęstości dla Critic_Score, zapisz wyniki polecenia density(), a następnie przekaż współrzędne x i y do funkcji add_lines():

d <- density(vgsales2016$Critic_Score, na.rm = TRUE)
plot_ly() %>%
  add_lines(x = ~d$x, y = ~d$y, fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic score'),
         yaxis = list(title = 'Density'))

Zwróć uwagę, jak łatwo można tworzyć nowe typy wykresów przy użyciu znajomego kodu! Argument fill = 'tozeroy' wypełnia obszar pod krzywą.

Ramki danych activision, ea i nintendo są już wczytane, podobnie jak biblioteka plotly.

To ćwiczenie jest częścią kursu

Interaktywna wizualizacja danych z plotly w R

Zobacz kurs

Instrukcje do ćwiczenia

Oblicz krzywe gęstości dla Critic_Score dla wydawców Activision, EA i Nintendo, zapisując je odpowiednio w obiektach d.a, d.e i d.n.
Utwórz nakładające się wykresy gęstości dla Critic_Score dla zbiorów activision, ea i nintendo (w tej kolejności).

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Compute density curves
d.a <- density(___, na.rm = TRUE)
d.e <- density(___, na.rm = TRUE)
d.n <- density(___, na.rm = TRUE)

# Overlay density plots
plot_ly() %>%
  add_lines(x = ___, y = ___, name = "Activision", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Electronic Arts", fill = 'tozeroy') %>%
  add_lines(x = ___, y = ___, name = "Nintendo", fill = 'tozeroy') %>%
  layout(xaxis = list(title = 'Critic Score'),
         yaxis = list(title = 'Density'))

Edytuj i uruchom kod