Create Plot4.R

R code that creates plot4