Updated Plot 2 R code file