Create plot.R