Plot 4 with R code