library(magrittr)
months2<-function(date){
  months_locale<-"1970-01-01" %>%
    as.Date() %>%
    seq.Date(by="month",len=12) %>%
    months()

  factor(months(date),ordered=TRUE,levels=months_locale)
}