Plot #2 R script