Create R code-plot4