Create plot.r