R script for creating plot4.png file