Update scatterplot.R