Añadir un rug plot
La gráfica que acabamos de crear se ve bastante bien, pero se aprecia una ligera pista de bimodalidad entre las horas 10 y 15. Dado que solo estamos viendo el “manchón” de una estimación de densidad, es difícil saber cuánta confianza tenemos en esa forma.
Vamos a aliviar esto haciendo un par de cosas.
Primero, baja el alpha del gráfico de densidad para ubicar con más precisión esos picos usando la cuadrícula de fondo.
Después, añade un rug plot debajo del gráfico de densidad usando geom_rug(). Para mostrar cualquier solapamiento que pueda ocurrir en el rug plot, establece su alpha en 0.5.
El data frame que creaste en el ejercicio anterior, truck_speeding, ya se ha cargado por ti.
Este ejercicio forma parte del curso
Buenas prácticas de visualización en R
Instrucciones del ejercicio
- Establece el alpha del gráfico de densidad en
0.7. - Añade
geom_rug()a la gráfica. - Establece el alpha del rug plot en
0.5.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
ggplot(truck_speeding, aes(x = hour_of_day)) +
# Adjust opacity to see gridlines with alpha = 0.7
geom_density(bw = 1.5, fill = 'steelblue', ___) +
# add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
___ +
labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")