add more comments to plot4.R