Update plot1.R

This is R source code for Plot1.