final plot1.R
final plot2 changes