add plot.R