Update plot.R