update plot1.R and plot2.R, call plot at load