Create plot4.R

Code to produce plot4.png