Final version of this plot1.R file