修改列以包含唯一字符组合

Question

我有一个问题，我需要在 nycflights13 数据集中找到唯一的航班尾号。然后，我需要在数据集中的任何机场中找到具有最多唯一目的地的尾号。

我曾尝试将 unique to tailnum 作为列包含在内，或者在将 tailnum 放入我的管道之前将其定义为不同的，但 none 似乎有效。

flights %>%
    count(tailnum, dest) %>%
    arrange(-n) %>%
    na.omit(tailnum_new) %>%
    print()

此代码为我提供了一个 table，其中包含飞机的尾号、目的地以及该尾号从该位置飞过的次数，但我只想在我的尾号变量中进行独特的观察。感谢您的帮助！

Answer 1

我们可以做到

library(dplyr)
flights %>%
   filter(complete.cases(tailnum)) %>%
   group_by(tailnum) %>% 
   summarise(n = n_distinct(dest)) %>% 
   ungroup %>%
   slice(which.max(n))
# A tibble: 1 x 2
#  tailnum     n
#  <chr>   <int>
#1 N11194     47

Answer 2

flights %>%
    filter(!is.na(tailnum)) %>%
    count(tailnum, dest) %>%
    count(tailnum, sort = TRUE) %>%
    slice(1)
## A tibble: 1 x 2
#  tailnum     n
#  <chr>   <int>
#1 N11194     47

修改列以包含唯一字符组合

Modifying a column to contain Unique Character Combinations

r

unique

distinct

tidyverse