Create plot1.R

Code for the first plot