added more explanatory comments in plot4.R comments