Finished plot3.R