Create Aggregate_and_Plots.R