Update plot1.R

Plot1 R script