library(data.table)
dts <- as.Date(c("2014-1-1", "2015-1-1", "2015-6-1"))
date_factor(dts, type="yearmonth")
date_factor(dts, type="yearquarter")
date_factor(dts, type="yearquarter", fullyears=FALSE)
Run the code above in your browser using DataLab