adding plot2.R code