Create plot5.R