Add plot3.R

add plot3.R