Adding plot2.R