Create plot4.R

Code for plot 4