plot1.R updated code and comments