Modified plot2.R