Final plot5.R and first draft plot6.R