add 4 plots and R scripts