Adding modified plot1.R