4 plots and 4 R code