4 plots and R code