plot2.R script