small edit to plot4.R