4 plots are 4 R scripts