Create R code-plot3