PLOT4.R