Create plot4.r

R code for plot 4