plot1.R script