df %>% group_by(id, fruits) %>% mutate(fruits_rep = row_number())