create plot4.R

plot4.R produces plot4.png