Plot 1 R script