Plot1.R complete