Базовый риджлайн-график

В качестве исходного кода предоставлен код для построения риджлайн-графика, отображающего процент превышения скорости водителями, остановленными сотрудниками ДПС, в разбивке по дням недели.

Измените код так, чтобы задать ширину ядра (bandwidth) конкретным значением, ограничить ось X для устранения длинных хвостов, а также добавить subtitle с указанием используемой ширины ядра.

Это упражнение является частью курса

Лучшие практики визуализации в R

Посмотреть курс

Инструкции к упражнению

Измените значение bandwidth на 3,5 в функции geom_density_ridges().
Задайте limits для оси X от 0 до 150.
Добавьте графику подзаголовок 'Gaussian kernel SD = 3.5'.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

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

Редактировать и запускать код