Added plot2

Added R code and png output for plot2