Plot1

R-script & output Plot #1