Create  	plot1.R