Finish Plot4.R