RscriptPlot4