Added in a rough draft for plot4.R and plot4.png.  Will update later