Update plot1.R

updated header text