This is R program for Plot1