Completed plot4.R; added plot4.png