final = Plot.plot({
...defaults,
marks: [
showBollingerBand ? Plot.areaY(data, {x: "date", y1: "lower", y2: "upper", fill:"gainsboro"}) : [],
area("green", data),
area("red", data),
Plot.ruleY([baseline], {strokeDasharray: "9"}),
Rline,
Plot.text(measures, {x: "datum", y: d => textY(d), text: d => d.kern, textAnchor: "start"}),
Plot.ruleX(measures, {x: "datum", y1: _ => 1, y2: d => textY(d)}),
],
})