Finished plot4.R and added image file.