function plot_between(year) {
const dat_f = comp_hist.filter(d => d.year >= year[0] && d.year <= year[1])
const dat_f_w_lab = dat_f.filter(d => d.label !== "NA")
const link_dat = year[1] >= 1969 & year[0] <= 1990 ? links[1969].map(project).concat(links[1970].map(project)).concat(links[1973].map(project)) : ""
return addTooltips(Plot.plot({
width: 1200,
height: 550,
projection: "equal-earth",
color: {legend: true},
marks: [
Plot.geo(land, { fill: "currentColor" }),
Plot.graticule(),
Plot.link(link_dat, { x1: "x1", y1: "y1", x2: "x2", y2: "y2", stroke: "gold", strokeWidth: 2 }),
Plot.dot(dat_f, {
x: d => +d.lng, y: d => +d.lat, r: 4, fill: d => d.year, opacity: 0.8,
stroke: "black",
title: d => `${d.year}: ${addNewlines(d.Event)} (associated figures: ${d.figures !== "NA" ? d.figures : ""})\n ${d.label !== "NA" ? d.label : ""}`
}),
Plot.sphere()
]
}), { fill: "gray", opacity: 0.5, "stroke-width": "3px", stroke: "blue" }
)
}