edit plots 2 and 3, add plot 4 and plot4.R