4 R scripts and 4 pngs