Consider the below data:
DF <- data.frame( Month = lubridate::as_date(c("2020-Jan-15","2020-Jan-15","2020-Jan-15")), Cat