adding plot2.R