Create Plot6.r