Получить отброшенный столбец после использования суммирования

Question

Я выбираю 10 лучших направлений полетов и сколько рейсов туда отправилось. Чтобы добиться этого, мне нужно было использовать суммирование, которое отбрасывает все, что я не упомянул в group_by(..).

Позже мне понадобится столбец origin, но я больше не могу извлечь этот столбец, так как он отбрасывается вместе с другими столбцами. Чтобы сохранить origin, мне кажется, что мне нужно упомянуть об этом в моем group_by(..), но я не хочу этого, так как мой результат будет неверным. Как я могу получить происхождение этих 10 лучших рейсов?

library(tidyverse)
library(nycflights13)

(newFlights<- flights %>% 
    group_by("Destination" = dest) %>% 
    summarise("AllFlights" = n()) %>% 
    arrange(desc(AllFlights)) %>% top_n(10))

Answer 1

Вы хотите включить origin в вызов group_by(). См. Документацию :

newFlights <- as.data.frame(flights %>% 
  group_by(origin, dest)%>%
  summarize("AllFlights" = n()) %>%
  arrange(desc(AllFlights))  %>%
  top_n(10)
)

head(newFlights, 10)

Даю вам:

   origin dest AllFlights
1     JFK  LAX      11262
2     LGA  ATL      10263
3     LGA  ORD       8857
4     JFK  SFO       8204
5     LGA  CLT       6168
6     EWR  ORD       6100
7     JFK  BOS       5898
8     LGA  MIA       5781
9     JFK  MCO       5464
10    EWR  BOS       5327