R script that generates plot2.png