Plot1.r