library(tidyr) library(dplyr) df <- data.frame( Date = as.Date(c("2019-03-08", "2019-04-22", "2019-04-25", "2020-01-10"