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")