Created plot1.R

Contains code to arrive at plot1.png