Create plot 1.R