R code change title and xlab and ylab