Create Plot6.R