I have the following dataset:
datasample <- data.frame(month = c("2020-01-01","2020-02-01","2020-03-01"),