Анализ данных в коде R и пакете nycflights13

Question

Я пытаюсь увидеть все рейсы, которые происходят каждый день и куда они направляются.Я в конечном итоге застрял, я выбрал категории, которые я хочу выбрать, используйте фильтр, чтобы попытаться получить все рейсы, которые имеют ровно 365 рейсов, но он говорит, что нет данных, я не знаю, каким должен быть мой следующий шаг.

flights %>% 
  select(month, day, flight, carrier, origin, dest) %>%
  filter(sum(flight) == 365) %>%  
  view()

Answer 1

Попробуйте: это использует summarise вместо mutate.Вы можете редактировать свои собственные групповые переменные.

library(nycflights13)
flights %>% 
  select(month, day, flight, carrier, origin, dest) %>% 
  group_by(carrier,flight,origin,dest) %>% 
  dplyr::summarise(N=n()) %>% 
  arrange(desc(N)) %>% 
  filter(N==365) %>% 
  View()

Answer 2

require(dplyr)
require(nycflights13)


flights %>%
  select(month, day, flight, carrier, origin, dest)   %>% 
  group_by(flight, carrier, origin, dest)             %>% 
  mutate(n_flights = n())                             %>%  
  ungroup                                             %>%  
  filter(n_flights == 365)                            %>% 
  head 

# 
# month   day flight carrier origin dest  n_flights
# <int> <int>  <int> <chr>   <chr>  <chr>     <int>
# 1     1     1    371 B6      LGA    FLL         365
# 2     1     1     59 AA      JFK    SFO         365
# 3     1     1    219 B6      JFK    CLT         365
# 4     1     1   1357 AA      JFK    SJU         365
# 5     1     1    407 VX      JFK    LAX         365
# 6     1     1    251 VX      JFK    LAS         365