upload plot1.R