Over elkaar geplaatste dichtheidsplots

In deze oefening leer je dichtheidsplots maken en ze over elkaar leggen om de verdeling van beoordelingsscores van critici te vergelijken voor drie uitgevers van videogames: Activision, Electronic Arts en Nintendo.

Om een dichtheidsplot voor Critic_Score te maken, sla je de resultaten van het commando density() op en geef je vervolgens de x- en y-coördinaten door aan 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'))

Zie je hoe je gemakkelijk nieuwe plottypen kunt maken met vertrouwde code? Het argument fill = 'tozeroy' vult het gebied onder de curve.

Dataframes activision, ea en nintendo zijn geladen, net als plotly.

Deze oefening maakt deel uit van de cursus

Interactieve datavisualisatie met plotly in R

Cursus bekijken

Oefeninstructies

Bereken dichtheidscurves van Critic_Score voor Activision, EA en Nintendo, en sla ze op in de objecten d.a, d.e en d.n.
Maak over elkaar geplaatste dichtheidsplots van Critic_Score voor activision, ea en nintendo (in die volgorde).

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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'))

Code bewerken en uitvoeren