Adding last two plots and R scripts