Gráficos de densidad superpuestos
En este ejercicio, aprenderás a crear gráficos de densidad y a superponerlos para comparar la distribución de las puntuaciones de la crítica para tres editoras de videojuegos: Activision, Electronic Arts y Nintendo.
Para crear un gráfico de densidad de Critic_Score, guarda los resultados del comando density() y luego pasa las coordenadas x e y a 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'))
Fíjate en cómo puedes crear nuevos tipos de gráficos fácilmente usando código que ya te resulta familiar. El argumento fill = 'tozeroy' rellena el área bajo la curva.
Los data frames activision, ea y nintendo ya están cargados, al igual que plotly.
Este ejercicio forma parte del curso
Visualización de datos interactiva con plotly en R
Instrucciones del ejercicio
- Calcula las curvas de densidad de
Critic_Scorepara Activision, EA y Nintendo, guardándolas en los objetosd.a,d.eyd.n, respectivamente. - Crea gráficos de densidad superpuestos de
Critic_Scoreparaactivision,eaynintendo(en ese orden).
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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'))