pic for plot4.R