Plot 1 R code