Plot 3 with R code