I have the following dataframe:
Data <- data.frame( date = c(\"2001-01-01\", \"2001-02-01\", \"2001-03-01\", \"2001-04-01\", \"2001-05-01\", \"2001-06-0
I made a similar format using quarters() and sub() in R:
quarters()
sub()
Data$qtr <- paste(format(Data$date, "%y/"), 0, sub( "Q", "", quarters(Data$date) ), sep = "")