create plot2.R