Create Plot3.r