Create plot 3.R