added fourth plot (4 plots plotted together) and R script to create/save the png