2.3.1 Practice Code

alaska_flights <- flights %>% 
  filter(carrier == "AS")

ggplot(data = alaska_flights, mapping = aes(x = dep_delay, y = arr_delay)) + 
  geom_point() + ggtitle("Departure vs. Arrival Delays for Alaska Flights")
## Warning: Removed 5 rows containing missing values (geom_point).