Plot1 R Script