R code to product Plot 1
The first plot in the assignment