plot4.R