Added Plot4.R and plot4.png