Update plot1.R

add comment