Create plot3.R

R code that creates plot3