plot1
plot2
plot3
cleaned up plot3.R
plot4