Create r code-plot1