plot4.R for now