Plot1-4.R