Update plot4.R

Made a correction in comment line