Updating plot2.R