Create Plot1.R

Just copy and paste code here.. after testing on local R Machine