Plot 1,  R code