I am trying to label a ggplot with years but maintain 3 monthly tick marks, so require:
labels = c(0,"","","", 12,"","","", 24,"","","", 36...)
slightly neater is:
labels = c(0,rep("",3),12,rep("",3),24,rep("",3),36...)
It must be possible to programatically create this.
gsub("," , ",'','',''," ,"0,12,24,36" )
is close, but the only actual working solution I've managed is
labels=c()
for (i in 0:3){ labels<-c(labels,i*12,rep("",3)) }
I'm sure there must be an elegant solution can anyone come up with one?

lapply:unlist(lapply(seq(0, 40, 12), c, rep("", 3)))ggplot2:::interleave(letters[1:3], "", "", "")