It looks like you're trying to use ordered=TRUE to keep the order in the original file. That's not what it does. Instead use levels=... and give it the levels in the order you want.
cons_mergedAll <- cons_mergedAll[order(cons_mergedAll$month_yr),]
cons_mergedAll$month_yr2 <- factor(cons_mergedAll$month_yr2,
levels=unique(cons_mergedAll$month_yr2))
