Update plot2.R

Minimal changes