2021-06-27

tidyverse包去重，及其去重后计数

1. 首先加载nycflights13包，选择flights数据集

library(tidyverse)
library(nycflights13)
flights

2.去重用distinct（）函数。首先按照目的地（dest）进行分组，然后求奔赴不同目的地的航班数量，每个组中有多少不同的tailnum。只求计数一般用n()函数。去重后计数用n_distinct()函数。

flights %>% group_by(dest) %>% summarise(planes=n_distinct(tailnum),flights=n())