按日期为ID号选择多次出现

Question

我需要根据日期为每个id查找多次出现/访问（如果特定的id发生在一个或多个日期上）

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)

此代码没有提供每个ID的发生次数以及它们发生的日期。