Update plot4.R

Minimal changes