我认为这一点最好的体现是所返回的内容。不幸的是,我无法创建一个可复制的示例:
> 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