Start Plot 1 R code