I am working with the following data set:
structure(list(Month = c("January", "January", "January", "January", "