exercise plots + R code