md_speeding %>% 
  filter(vehicle_color == 'BLUE') %>% 
  ggplot(aes(x = speed)) +
  geom_histogram()