Added plot4

Added R code and png output for plot4