Update plot4.R

Trimmed unnecessary code