Update plot4.R

clean up post merge