Update plot4.R

minor changes