Plot 4 and R code

Added plot 4 and code