my solution

added my png files and my R script.