Finish Plot3.R