added fourth plot, a mix of 4 plots together, and the R script to create (and save) into png.