Update plot1.R

Minimal changes