R script and png file for the first plot.