Create pro1plot4.R