Update plot4.R

par changes