R script that generates plot5.png