(1) R code constructs plot1.PNG