Update plot1.R

Final plot R