Plot #3 R script