Create Plot3

R code for Plot3