Rearranged plot1.R script to make it easier for peer assessment