Update plot4.R

basically correct, needs minor tweaking