Finish Plot1.R