r-使用dplyr查找机场上的竞争对手数量

Question

我正在查看关于航班和机场详细信息的数据集。该数据集包含以下列，其中包含有关机场和航班详细信息的数据。

目标

flight_date	dest_airport_ID
2019年3月13日	LAX
2019年3月13日
2019年3月13日
2019年3月13日
2019年3月14日

我们可以使用

library(dplyr)
library(tidyr)
df1 %>%
group_by(origin, dest) %>% 
summarise(competitors = n_distinct(op_career), .groups = 'drop') %>% 
pivot_longer(cols = origin:dest, names_to = NULL,
values_to = 'Airport') %>%
select(Airport, competitors)

-输出

# A tibble: 2 × 2
Airport competitors
<chr>         <int>
1 SFO               4
2 LAX               4