Plot1 R code