updated plot1.R script