Updated Plot1.R file