Фасетирование по всем цветам

Как и следовало ожидать, для красных автомобилей различия по полу водителя невелики. Что произойдёт, если применить фасетирование и сравнить распределения по всем цветам?

При сравнении распределений нередко требуется рассмотреть большое количество условий. В данном случае мы работаем со всеми 10 тысячами точек.

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

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

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

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

Удалите filter() для красных автомобилей.
Добавьте facet_wrap() по переменной vehicle_color.
Измените заголовок на 'Speed of different car colors, separated by gender of driver'.

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

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

# remove color filter
md_speeding %>% filter(vehicle_color == 'RED') %>%
    ggplot(aes(x = gender, y = speed)) + 
    geom_jitter(alpha = 0.3, color = 'steelblue') +
    geom_boxplot(alpha = 0) +
    # add a facet_wrap by vehicle_color
    ___ +
    # change title to reflect new faceting
    labs(title = 'Speed of red cars by gender of driver')

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