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"
      )