course project plot1.R plot2.R