Create pro1plot2.R