updating plot1.R