Update plot3.R

plot3 Code