Create Plot1.R

Added Comments