NYC Flights

##Load required libraries

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.2     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.3     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(nycflights13)

##Create a summarized dataset for average delays by month

avg_delays_by_month <- flights %>%
  group_by(month) %>%
  summarize(avg_dep_delay = mean(dep_delay, na.rm = TRUE),
            avg_arr_delay = mean(arr_delay, na.rm = TRUE)) %>%
  arrange(month)

##Plot the data

ggplot(data = avg_delays_by_month,aes(x = month)) +
  geom_line(aes(y=avg_dep_delay,color = "Average Departure Delay"), size = 1)+
  geom_line(aes(y = avg_arr_delay, color = "Average Arrival Delay"),size = 1)+
  labs(title = "Average Flight Delays by Month in NYC (2013)",
       x = "Month",
       y = "Average Delay (minutes)")+
  scale_color_manual(values = c("Average Departure Delay" = "blue","Average Arrival Delay" = "red"),
                     name="Delay Type") +
  theme_minimal()

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.