2. Which plane (tailnum) has the worst on-time record?

2. Which plane (tailnum) has the worst on-time record?

library(tidyverse)
library(nycflights13)
data(flights)

worst_delay <- flights %>%
  filter(!is.na(arr_delay)) %>%
  group_by(tailnum) %>%
  summarize(avg_delay = mean(arr_delay)) %>%
  arrange(avg_delay)

worst_delay$tailnum[1]

3. What time of day should you fly if you want to avoid delays asmuch as possible?

delay_by_time <- flights %>%
  filter(!is.na(dep_delay)) %>%
  group_by(hour) %>%
  summarize(avg_delay = mean(dep_delay))

delay_by_time[which.min(delay_by_time$avg_delay), "hour"]

4. For each destination, compute