Fix Plot1.R