plot1 R script and PNG