Added plot4.R and plot4.png

corrected the code