R code for plot3