Plot 4 - R code