Added r script and png for first plot