R scripts to generate 4 plots for Project 1