updated plots.R