Updated Plot 1 R code file