Plot #1 R script