1items %>% 2 group_by(id) %>% 3 filter(n() > 2) %>% 4 mutate(count = n()) %>% 5 ungroup() %>% 6 distinct(id, .keep_all = TRUE) 7 write_csv("items.csv")
View as plain text