One more update to plot4.R