plot3.R