add R code for plot1
add R code for plot2
add plot2
add plot1