Create Plot5.r