Created plot3.R