Create plot1.R

Script for creating plot1