I have the following data:
structure(list(monthtrunc = c("2011-01-01 00:00:00", "2011-02-01 00:00:00", "2011-03-01 00:00:00", "