PLot 4 R code and png for Explore Data Course Project 1