Add plot3.R

Add plot3.R