Create Plot4

R code for plot4