Create Plot1.r