Create plot3.R

This is the R code to create the plot3