Create Plot1.R and Plot1.png