Added plot 4

added plot 4 R code and PNG