Plot 4 R code file