items %>% group_by(id) %>% filter(n() > 2) %>% mutate(count = n()) %>% ungroup() %>% distinct(id, .keep_all = TRUE) write_csv("items.csv")