Updating plot.R