Assignment 5

1. Join + filter - All airplanes that flew LGA to XNA

lga_to_xna <- flights %>%
  filter(origin == "LGA" & dest == "XNA") %>%  
  left_join(planes, by = "tailnum") %>%       
  select(tailnum) %>%                          
  distinct()                     
print(lga_to_xna)

## # A tibble: 70 × 1
##    tailnum
##    <chr>  
##  1 N722MQ 
##  2 N719MQ 
##  3 N739MQ 
##  4 N711MQ 
##  5 N723MQ 
##  6 N730MQ 
##  7 N734MQ 
##  8 N725MQ 
##  9 N736MQ 
## 10 N737MQ 
## # ℹ 60 more rows

2. Join - Add the airline name to the flights table

flights_with_airline <- flights %>%
  left_join(airlines, by = "carrier") %>%  
  select(year, month, day, dep_time, arr_time, origin, dest, tailnum, carrier, name)  

head(flights_with_airline, 20)

## # A tibble: 20 × 10
##     year month   day dep_time arr_time origin dest  tailnum carrier name        
##    <int> <int> <int>    <int>    <int> <chr>  <chr> <chr>   <chr>   <chr>       
##  1  2013     1     1      517      830 EWR    IAH   N14228  UA      United Air …
##  2  2013     1     1      533      850 LGA    IAH   N24211  UA      United Air …
##  3  2013     1     1      542      923 JFK    MIA   N619AA  AA      American Ai…
##  4  2013     1     1      544     1004 JFK    BQN   N804JB  B6      JetBlue Air…
##  5  2013     1     1      554      812 LGA    ATL   N668DN  DL      Delta Air L…
##  6  2013     1     1      554      740 EWR    ORD   N39463  UA      United Air …
##  7  2013     1     1      555      913 EWR    FLL   N516JB  B6      JetBlue Air…
##  8  2013     1     1      557      709 LGA    IAD   N829AS  EV      ExpressJet …
##  9  2013     1     1      557      838 JFK    MCO   N593JB  B6      JetBlue Air…
## 10  2013     1     1      558      753 LGA    ORD   N3ALAA  AA      American Ai…
## 11  2013     1     1      558      849 JFK    PBI   N793JB  B6      JetBlue Air…
## 12  2013     1     1      558      853 JFK    TPA   N657JB  B6      JetBlue Air…
## 13  2013     1     1      558      924 JFK    LAX   N29129  UA      United Air …
## 14  2013     1     1      558      923 EWR    SFO   N53441  UA      United Air …
## 15  2013     1     1      559      941 LGA    DFW   N3DUAA  AA      American Ai…
## 16  2013     1     1      559      702 JFK    BOS   N708JB  B6      JetBlue Air…
## 17  2013     1     1      559      854 EWR    LAS   N76515  UA      United Air …
## 18  2013     1     1      600      851 LGA    FLL   N595JB  B6      JetBlue Air…
## 19  2013     1     1      600      837 LGA    ATL   N542MQ  MQ      Envoy Air   
## 20  2013     1     1      601      844 EWR    PBI   N644JB  B6      JetBlue Air…

3. Join + select + distinct - Airports with no commercial flights

airports_no_flights <- airports %>%
 
  anti_join(flights, by = c("faa" = "dest")) %>%  
  select(name) %>%  
  distinct()         

print(airports_no_flights)

## # A tibble: 1,339 × 1
##    name                          
##    <chr>                         
##  1 Lansdowne Airport             
##  2 Moton Field Municipal Airport 
##  3 Schaumburg Regional           
##  4 Randall Airport               
##  5 Jekyll Island Airport         
##  6 Elizabethton Municipal Airport
##  7 Williams County Airport       
##  8 Finger Lakes Regional Airport 
##  9 Shoestring Aviation Airfield  
## 10 Jefferson County Intl         
## # ℹ 1,329 more rows

4. EXTRA CREDIT - Airports with the most winds (wind_speed > 30)

windy_airports <- weather %>%
  filter(wind_speed > 30) %>%                    
  left_join(airports, by = c("origin" = "faa")) %>%  # 
  select(name) %>%                               
  distinct()                                     

print(windy_airports)

## # A tibble: 3 × 1
##   name               
##   <chr>              
## 1 Newark Liberty Intl
## 2 John F Kennedy Intl
## 3 La Guardia