Create Plot1Code.R