Added r script and png for third plot