Update plot3.R

Minimal changes