Final plot4.R and first draft plot5.R