Created four R scripts and output plots in png format