flights_speed %>%
  ggplot(aes(x=reorder(carrier,speed,na.rm = TRUE), y=speed)) +
  geom_boxplot() +
  labs(y="Speed", x="Carrier", 
       subtitle="Reordering Boxplots after removing missing data")