Final plot3.R and initial draft of plot4.R