我认为这一点最好的体现是所返回的内容。不幸的是,我无法创建一个可复制的示例:
> duplicates <- lu21[duplicated(lu21$id), ]
> nrow(duplicates) #demonstrating duplicates are present
[1] 61773
> duplicated_ids <- lu21[duplicated(lu21$id), ]
> duplicated_ids %>%
+ group_by(id) %>%
+ arrange(id) %>%
+ head(., 6)
# A tibble: 6 × 2
# Groups: id [6]
em id
<dbl> <chr>
1 700400662 10000334_313317_1188902_1_2014.5
2 200400166 10000446_367698_1046385_1_2014
3 200600162 10000846_504520_872256_1_2006