• geom_jitter() แสดงจุดข้อมูลจริงโดยกระจายเพื่อหลีกเลี่ยงการซ้อนทับ
• วางไว้ใต้ geom_boxplot()

md_speeding %>% 
  filter(vehicle_color == 'BLUE') %>%
  ggplot(aes(x = gender, y = speed)) +
    # Draw points behind 
    geom_jitter(alpha = 0.3, color = 'steelblue') + 
    # Make transparent
    geom_boxplot(alpha = 0) + 
    labs(title = 'Distribution of speed for blue cars by gender')