Update plot2.R

First complete version