Edit Question - KnowledgeHub

Title Body

I was trying to implement multicolor texts as shown here: multicolor text on chart which referenced this: multicolor text in R This is what I came up with (with help from here ): require(ggplot2) require(grid) png(file="multicolortitle.png",width=800,height=500) qplot(x = hp,y = mpg,data = mtcars,color=factor(mtcars$cyl),size=2) + scale_colour_manual(values = c("red3","green3","blue3")) + theme_bw() + opts(title = " \n ") + opts(legend.position = "none") spacing <- 20 grid.text(0.5, unit(1,"npc") - unit(1,"line"), label=paste("4 cylinder,",paste(rep(" ",spacing*2), collapse='')), gp=gpar(col="red3", fontsize=16,fontface="bold")) grid.text(0.5, unit(1,"npc") - unit(1,"line"), label=paste(paste(rep(" ",spacing), collapse=''),"6 cylinder,", paste(rep(" ",spacing), collapse='')), gp=gpar(col="green3", fontsize=16,fontface="bold")) grid.text(0.5, unit(1,"npc") - unit(1,"line"), label=paste(paste(rep(" ",spacing*2), collapse=''),"8 cylinder"), gp=gpar(col="blue3", fontsize=16,fontface="bold")) grid.text(0.5, unit(1,"npc") - unit(2,"line"), label=paste(paste(rep(" ",spacing*0), collapse=''), "- Horsepower versus Miles per Gallon"), gp=gpar(col="black", fontsize=16,fontface="bold")) dev.off() Here's the resulting graph: So, my question: is there a more elegant method to use for this? I'd like to be able to use ggsave for example, and creating th

Tags (comma-separated) Cancel