Added .R and .png files for plot4