added plot2.R script