Final plots and R scripts