Here is the picture, "plot1.png".
Here is the R code for plot1.R.