plot3.R

done