add plot1.R script