Update and rename R code file to plot1.R