Added plots + R code to generate the plots