Create R code-plot2