Plot 3 R code file