Plot 3 R script