• geom_jitter() показує сирі точки, зсунуті, щоб не перекривалися.
• Розмістіть шар під вашим geom_boxplot().

md_speeding %>% 
  filter(vehicle_color == 'BLUE') %>%
  ggplot(aes(x = gender, y = speed)) +
    # Малюйте точки позаду 
    geom_jitter(alpha = 0.3, color = 'steelblue') + 
    # Зробіть прозорим
    geom_boxplot(alpha = 0) + 
    labs(title = 'Distribution of speed for blue cars by gender')