create plot4.R