Creating plot1.R