Create Plot2

R code for plot 2