plot3.R complete