updated plot4.R to have default CEX