Update plot1.R

First complete version