2  In Class Assignment

2.1 Finding the 10 most popular aircraft models according to the number of aircraft produced by each model:

library(dplyr)

nycflights13::planes %>%
  group_by(manufacturer) %>%
  summarise(num_planes = n()) %>%
  arrange(desc(num_planes)) %>%
  head(10)

# A tibble: 10 × 2
   manufacturer                  num_planes
   <chr>                              <int>
 1 BOEING                              1630
 2 AIRBUS INDUSTRIE                     400
 3 BOMBARDIER INC                       368
 4 AIRBUS                               336
 5 EMBRAER                              299
 6 MCDONNELL DOUGLAS                    120
 7 MCDONNELL DOUGLAS AIRCRAFT CO        103
 8 MCDONNELL DOUGLAS CORPORATION         14
 9 CANADAIR                               9
10 CESSNA                                 9

2.2 Finding the top 10 most popular models of planes based on the number of planes manufactured by each model:

library(dplyr)

nycflights13::planes %>%
  group_by(model) %>%
  summarise(num_planes = n()) %>%
  arrange(desc(num_planes)) %>%
  head(10)

# A tibble: 10 × 2
   model       num_planes
   <chr>            <int>
 1 737-7H4            361
 2 A320-232           256
 3 CL-600-2B19        171
 4 CL-600-2D24        123
 5 737-824            122
 6 MD-88              117
 7 EMB-145LR          114
 8 737-3H4            105
 9 EMB-145XR          104
10 757-232             94