Plot2

Added R script and png for plot2