Create pro1plot3.R