Create plot2.R

R code for creating plot 2