R code for plot3
picture for plot3