Create plot 2.R