Plot 1 R code file