Haciendo llover (puntos de datos)
La mayor bimodalidad que vemos al comienzo de la semana podría ser interesante, pero deberíamos dibujar puntos individuales debajo de las densidades para entender cómo la KDE interpola antes de darlo por finalizado.
Al código de los ejercicios anteriores se le ha añadido una geometría de puntos para justo esto. Verás que no se ve muy bien. Para mejorarlo haremos varias cosas…
Primero, baja ligeramente los alpha de los puntos para visualizar el solapamiento. Segundo, cambia la forma del punto a líneas verticales al estilo de geom_rug() ('|').
En este punto, si ejecutas el código verás que los puntos cortan de forma extraña las formas de densidad. Necesitamos “empujar” un poco las marcas hacia abajo en el eje y. Para ello, podemos usar el argumento position y la función auxiliar position_nudge().
Este ejercicio forma parte del curso
Buenas prácticas de visualización en R
Instrucciones del ejercicio
- Baja el
alphade los puntos a0.2para mostrar el solapamiento. - Cambia la
shapede la línea a'|'para aprovechar mejor el espacio. - Empuja los puntos hacia abajo para que no se superpongan con la forma de densidad con
position = position_nudge(y = -0.05).
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
md_speeding %>%
mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>%
ggplot(aes( x = percentage_over_limit, y = day_of_week)) +
geom_point(
# make semi-transparent with alpha = 0.2
# turn points to vertical lines with shape = '|'
# nudge the points downward by 0.05
) +
geom_density_ridges(bandwidth = 3.5, alpha = 0.7) +
scale_x_continuous(limits = c(0,150), expand = c(0,0)) +
labs(subtitle = 'Guassian kernel SD = 3.5') +
theme( axis.ticks.y = element_blank() )