fix plot1.R