Plot1.R