plot2.R completed