Update RscriptPlot1