Added r script and png for second plot