Plot #4 R script