R plotting

R code and output