replace corrupted plot1.R