x<-1:10; y<-x*x plot(x,y, main = "", xlab="", ylab="", col.axis="blue", type="l") title(main = "Main title", sub = "Sub-title", xlab = "X axis", ylab = "Y axis", cex.main = 2, font.main= 4, col.main= "red", cex.sub = 0.75, font.sub = 3, col.sub = "green", col.lab ="darkblue" )