Create RscriptPlot1