Addition Plot1.R