R script to generate first plot and the first plot itself
Changed to use with function when plotting
Added script to render second plot and plot itself