Create plot1.R

First plot