Assignment 6

Emily Trainor

Question 1

#install.packages("dplyr")
#install.packages("pacman")
pacman::p_load(nycflights13)
View(flights) # this View() function opens lets you directly view the whole dataset
glimpse(flights) # this glimpse() function provides a quick overview of the dataset
summary(flights)

Question 2

select(flights, starts_with("dep"))

 
sortf <- arrange(flights,desc(dep_delay)) 
select(sortf, carrier, flight, tailnum, everything())

summarise(flights, delay=mean(dep_delay,na.rm=TRUE))

maxdep <- max(flights$dep_delay, na.rm=TRUE)
maxdep_id <- which(flights$dep_delay==maxdep)
flights[maxdep_id, 10:12]

Question 3

not_cancelled <- flights %>% 
 filter(!is.na(dep_delay), !is.na(arr_delay))

not_cancelled

delays <- not_cancelled %>% 
 group_by(tailnum) %>% 
 summarise(
  delay = mean(arr_delay)
 )

delays

flights %>% 
 group_by(year, month, day) %>% 
 summarise(mean = mean(dep_delay, na.rm = TRUE))

not_cancelled <- flights %>% 
 filter(!is.na(dep_delay))

not_cancelled %>% 
 group_by(year, month, day) %>% 
 summarise(mean = mean(dep_delay))

Question 4

library(dplyr)
library(nycflights13)

avg_arrival_delay <- flights %>%
  filter(!is.na(arr_delay)) %>%               
  group_by(tailnum) %>%                       
  summarise(avg_delay = mean(arr_delay, na.rm = TRUE), .groups = 'drop') 

str(avg_arrival_delay) 

lowest_delay <- avg_arrival_delay %>%
  arrange(avg_delay) %>%                      
  slice(1)                                     

lowest_delay

Question 5

not_cancelled %>% 
 group_by(year, month, day) %>% 
 summarise(
  first = min(dep_time),
  last = max(dep_time)
 )

Question 6

proportion_delays <- flights %>%
  filter(!is.na(dep_delay)) %>%  
  group_by(month) %>%            
  summarise(
    total_flights = n(),          
    delayed_flights = sum(dep_delay > 60),  
    proportion_delayed = delayed_flights / total_flights  
  ) %>%
  arrange(month)  

proportion_delays

Question 7

carriers_per_destination <- flights %>%
  group_by(dest) %>%                          
  summarise(unique_carriers = n_distinct(carrier), .groups = 'drop') %>%  
  arrange(desc(unique_carriers))              

carriers_per_destination

Question 9

delays <- flights %>% 
 group_by(dest) %>% 
 summarise(
  count = n(),
  dist = mean(distance, na.rm = TRUE),
  delay = mean(arr_delay, na.rm = TRUE)
 ) %>% 
 filter(count > 20, dest != "HNL")

delays