Correction plot1.R