other 3 plots and R scripts