plot1.R Code changes