added plot2.R