plot4.png and initial plot5.R