Create plo4.R