Un ridgeline plot básico

Se proporciona código para crear un ridgeline plot que muestra el porcentaje por encima del límite al que se detuvo a los conductores, según el día de la semana.

Modifica el código para establecer el ancho del kernel (bandwidth) a un valor específico, cambiar los límites del eje x para eliminar las colas largas y añadir también un subtitle que indique al lector el ancho de banda que estás usando.

Este ejercicio forma parte del curso

Buenas prácticas de visualización en R

Ver curso

Instrucciones del ejercicio

Cambia bandwidth a 3.5 en geom_density_ridges().
Establece los limits de la escala x de 0 a 150.
Añade al gráfico el subtítulo 'Gaussian kernel SD = 3.5'.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

library(ggridges)

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)) + 
    # Set bandwidth to 3.5
    geom_density_ridges() +
    # add limits of 0 to 150 to x-scale
    scale_x_continuous() 
    # provide subtitle with bandwidth

Editar y ejecutar código