finished plot1.R
finished plot2.R