Finally good correction of plot4.R