saved plot4.R