Added R code and output PNG

Updated chart 3 and 4 R code and PNG. I found missing underscores in the
legends. Now they have been fixed!