Выберите несколько вхождений по дате для идентификационных номеров

Question

Мне нужно найти несколько вхождений / посещений для каждого идентификатора на основе дат (если конкретный идентификатор произошел на одну дату или несколько)

df <- data_frame("Date" = c("2018-03-04", "2018-03-04", "2018-03-04", "2018-
03-04", "2018-03-05", "2018-03-07", "2018-03-07", "2018-03-07"), "ID" = c("A", "D", "B", "D", "B", "C", "C", "C"))
 df %>%
   group_by(ID, lubridate::date(Date)) %>%
   arrange(Date) %>%
   slice(1) %>%
   select(Date, ID)

Этот код не дает мне номер вхождения для каждого идентификатора и дату, когда они произошли.