made 4 R files and PNGs