Create plot1.R

Creates plot1.png