Update plot5.R