Added R file for second plot.