Plot 4 R code and graphs