addign R code for first plot
modifying R code for first plot
final commit - already submitted everything