Completed plot1.R - plot4.R