fix typo on plot1.R
plot2 R script and putput image