updating plot2.R