Added plot3

Added R code and png output for plot3