plot1 done - includes R script and PNG output