inclass

Questions from Workshop 2

3.2.5 Question 2 Part 1

Which flights had the longest departure delay?

flights_longest_delay <- flights |> 
  arrange(desc(dep_delay))

flights_longest_delay |> 
  select(year, month, day, dep_time, sched_dep_time, dep_delay,
         carrier, flight, origin, dest, air_time, distance) |>
  head(10)

# A tibble: 10 × 12
    year month   day dep_time sched_dep_time dep_delay carrier flight origin
   <int> <int> <int>    <int>          <int>     <dbl> <chr>    <int> <chr> 
 1  2013     1     9      641            900      1301 HA          51 JFK   
 2  2013     6    15     1432           1935      1137 MQ        3535 JFK   
 3  2013     1    10     1121           1635      1126 MQ        3695 EWR   
 4  2013     9    20     1139           1845      1014 AA         177 JFK   
 5  2013     7    22      845           1600      1005 MQ        3075 JFK   
 6  2013     4    10     1100           1900       960 DL        2391 JFK   
 7  2013     3    17     2321            810       911 DL        2119 LGA   
 8  2013     6    27      959           1900       899 DL        2007 JFK   
 9  2013     7    22     2257            759       898 DL        2047 LGA   
10  2013    12     5      756           1700       896 AA         172 EWR   
# ℹ 3 more variables: dest <chr>, air_time <dbl>, distance <dbl>

3.2.5 Question 2 Part 2

Which flights departed the earliest?

flights_earliest <- flights |> 
  arrange(dep_time)

flights_earliest |> 
  select(year, month, day, dep_time, sched_dep_time,
         carrier, flight, origin, dest, dep_delay, air_time, distance) |>
  head(10)

# A tibble: 10 × 12
    year month   day dep_time sched_dep_time carrier flight origin dest 
   <int> <int> <int>    <int>          <int> <chr>    <int> <chr>  <chr>
 1  2013     1    13        1           2249 B6          22 JFK    SYR  
 2  2013     1    31        1           2100 WN         530 LGA    MDW  
 3  2013    11    13        1           2359 B6        1503 JFK    SJU  
 4  2013    12    16        1           2359 B6         839 JFK    BQN  
 5  2013    12    20        1           2359 B6        1503 JFK    SJU  
 6  2013    12    26        1           2359 B6        1503 JFK    SJU  
 7  2013    12    30        1           2359 B6         839 JFK    BQN  
 8  2013     2    11        1           2100 WN         530 LGA    MDW  
 9  2013     2    24        1           2245 B6         608 JFK    PWM  
10  2013     3     8        1           2355 B6         739 JFK    PSE  
# ℹ 3 more variables: dep_delay <dbl>, air_time <dbl>, distance <dbl>

3.2.5 Question 4

flights_data <- flights |> 
  distinct(month,day) 

nrow(flights_data)

[1] 365

There are 365 unique flights when distinguishing by month and day, showing that there was a flight every day in 2013.