Addition of plot4

Adding in plot4.R and plot4.png