Added r script and png for fourth plot