Update plot.r