Create Plot3Code.R