completed plot 4 and moved from .Rmd to .R per assignement