Create Plot3.R