My answer

4 PNG's with 4 R scripts.