Final plot1.R