Updated Plot1.R