added plot2.R file