31:T46a,{ gTitle.selectAll("*").remove(); gTitle .append("text") .attr("x", 10) .attr("y", 35) .style("font-size", 30) .style("font-weight", "bold") .style("font-family", "Arial") .text("Présidentielle 2022 - " + regionNames[region]); gTitle .append("text") .attr("x", 10) .attr("y", 70) .style("font-size", 20) .style("font-family", "Arial") .text((tour === "t1" ? "1er" : "2ème") + " tour"); gTitle .append("text") .attr("x", 10) .attr("y", 95) .style("font-size", 20) .style("font-family", "Arial") .text(catMode === "tete" ? "candidat en tête" : "par candidat"); if (autres) gTitle .append("text") .attr("x", 10) .attr("y", 120) .style("font-size", 20) .style("font-family", "Arial") .text("(avec non-exprimés)"); gTitle .append("text") .attr("x", 10) .attr("y", height - 7) .style("font-size", 12) .style("font-family", "Arial") .text( "Julien Gaffuri, 09/05/2022 - https://observablehq.com/@jgaffuri/cartographie-de-lelection-presidentielle-2022-au-niveau-c" ); }32:T51d,{ //clean svg.select("defs").selectAll("*").remove(); //colors const cols = colors[tour][nor_abs]; if (catMode === "tous") { //make patterns for (const p of dataFiltered) { const p_ = p[tour][nor_abs]; if (!p_.perc) continue; //make pattern if (geomType === "circles") { //circle patterns sc.makeCircleStripePattern( "electionMap", "pattern" + p.properties.INSEE_COM, 2 * p_.r, p_.perc, cols ); } else { //regions patterns sc.makePolygonStripePattern( "electionMap", "pattern" + p.properties.INSEE_COM, stripeWidth, p_.perc, cols ); } } //set patterns const gr = geomType === "circles" ? circles : communesPoly; gr.attr("fill", (p) => "url(#pattern" + p.properties.INSEE_COM + ")"); } else { //set color of leading candidate const gr = geomType === "circles" ? circles : communesPoly; const indexOfMaxValue = (a) => a.reduce((iMax, x, i, arr) => (x > arr[iMax] ? i : iMax), 0); gr.attr("fill", (p) => { const p_ = p[tour][nor_abs]; if (!p_.perc) return "lightgray"; const iMax = indexOfMaxValue(p_.perc); return cols[iMax]; }); } }33:T8cf,data = communes.map((e) => { //e.center = d3.geoCentroid(e.geom); e.cgeom = projection(d3.geoCentroid(e.geometry)); //e.cgeom = projection([+e.lon, +e.lat]); const code = e.properties.INSEE_COM; let res; //tour 1 e.t1 = { nor: {}, abs: {} }; res = resCommT1I.get(code); if (res) { //percentages e.t1.nor.perc = [ +res["ARTHAUD.exp"], +res["POUTOU.exp"], +res["ROUSSEL.exp"], +res["MÉLENCHON.exp"], +res["HIDALGO.exp"], +res["JADOT.exp"], +res["MACRON.exp"], +res["PÉCRESSE.exp"], +res["LASSALLE.exp"], +res["DUPONT-AIGNAN.exp"], +res["LE PEN.exp"], +res["ZEMMOUR.exp"] ]; e.t1.abs.perc = [ +res["ARTHAUD.ins"], +res["POUTOU.ins"], +res["ROUSSEL.ins"], +res["MÉLENCHON.ins"], +res["HIDALGO.ins"], +res["JADOT.ins"], 100 - res["ARTHAUD.ins"] - res["POUTOU.ins"] - res["ROUSSEL.ins"] - res["MÉLENCHON.ins"] - res["HIDALGO.ins"] - res["JADOT.ins"] - res["MACRON.ins"] - res["PÉCRESSE.ins"] - res["LASSALLE.ins"] - res["DUPONT-AIGNAN.ins"] - res["LE PEN.ins"] - res["ZEMMOUR.ins"], +res["MACRON.ins"], +res["PÉCRESSE.ins"], +res["LASSALLE.ins"], +res["DUPONT-AIGNAN.ins"], +res["LE PEN.ins"], +res["ZEMMOUR.ins"] ]; //radius e.t1.nor.r = toRadius(+res["Exprimés"]); e.t1.abs.r = toRadius(+res["Inscrits"]); //inscrits / exprimés e.t1.ins = +res["Inscrits"]; e.t1.exp = +res["Exprimés"]; } //else console.log("No results for T1 in " + code + " " + e.NOM); //tour 2 e.t2 = { nor: {}, abs: {} }; res = resCommT2I.get(code); if (res) { //percentages e.t2.nor.perc = [+res["MACRON.exp"], +res["LE PEN.exp"]]; e.t2.abs.perc = [ +res["MACRON.ins"], 100 - res["MACRON.ins"] - res["LE PEN.ins"], +res["LE PEN.ins"] ]; //radius e.t2.nor.r = toRadius(+res["Exprimés"]); e.t2.abs.r = toRadius(+res["Inscrits"]); //inscrits / exprimés e.t2.ins = +res["Inscrits"]; e.t2.exp = +res["Exprimés"]; } //else console.log("No results for T2 in " + code + " " + e.NOM); return e; })34:[{"id":"761fff20e4f396570dd0ec5a83810042a5f5410e1ebcc8d34216ae5516ee391f92d7cf20d95438310b8e42c2b43616d49e7f7a290fcd7aad2e86544f6e21b463","href":"https://static.observableusercontent.com/files/761fff20e4f396570dd0ec5a83810042a5f5410e1ebcc8d34216ae5516ee391f92d7cf20d95438310b8e42c2b43616d49e7f7a290fcd7aad2e86544f6e21b463","name":"p2022-resultats-communes-t2.csv","type":"text/csv","lastModified":1651737639465.688,"size":9360268},{"id":"429443ab0c16616db42ed57e3dda25201f2a25277db740b20d8868358adf21167f7cbdb83cc5d4544fc0bde4cc776800c45381e714a7a34d9ec59fcbb44c431c","href":"https://static.observableusercontent.com/files/429443ab0c16616db42ed57e3dda25201f2a25277db740b20d8868358adf21167f7cbdb83cc5d4544fc0bde4cc776800c45381e714a7a34d9ec59fcbb44c431c","name":"commune_2022_5M.topojson","type":"application/octet-stream","lastModified":1651865533984.092,"size":11572317},{"id":"c342537635992e4c572ce27612aebbf3ffe87ad63dea277dbf0d0f4f6d386bc075f3e08673078b5d8b647c445555d687450190f074998a81f2d892ae7b832fe3","href":"https://static.observableusercontent.com/files/c342537635992e4c572ce27612aebbf3ffe87ad63dea277dbf0d0f4f6d386bc075f3e08673078b5d8b647c445555d687450190f074998a81f2d892ae7b832fe3","name":"departement_2022_5M.topojson","type":"application/octet-stream","lastModified":1651907437999.196,"size":219319},{"id":"64cd3f8f809ca17ce221b840f1a70598231f1918a825ea9ca92da31370b76fdd2b9e2023c925ce9296175a632e18398851ec7f74b5198faf5b7e289a3cc7cdd1","href":"https://static.observableusercontent.com/files/64cd3f8f809ca17ce221b840f1a70598231f1918a825ea9ca92da31370b76fdd2b9e2023c925ce9296175a632e18398851ec7f74b5198faf5b7e289a3cc7cdd1","name":"p2022-resultats-communes-t1.csv","type":"text/csv","lastModified":1651760123161.451,"size":21651893}] 2f:{"title":"Cartographie de l'élection présidentielle 2022 au niveau communal","cells":[{"id":2541,"value":"# Cartographie de l'élection présidentielle 2022 au niveau communal","pinned":false,"hidden":false,"mode":"md"},{"id":3315,"value":"Cette carte montre les résultats de l'élection présidentielle 2022 au niveau communal. Ce niveau permet de mieux percevoir les variations locales du vote, en particulier entre différentes régions, milieu rural ou urbain, etc.\n\nLes données peuvent être représentées sous forme de régions ou bien de cercles proportionnels, pour l'ensemble des candidats (sous forme de rayures) ou uniquement le candidat arrivé en tête. Les données des deux tours sont disponibles. Le niveau de l'abstention et votes blancs/nuls peut être inclus.","pinned":false,"hidden":false,"mode":"md"},{"id":136,"value":"mainDiv.node()","pinned":false,"hidden":false,"mode":"ojs"},{"id":1656,"value":"viewof region = Inputs.select(regions, {\n label: \"Région\",\n value: \"11\",\n format: (r) => regionNames[r]\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":1391,"value":"viewof tour = Inputs.radio(\n new Map([\n [\"Premier\", \"t1\"],\n [\"Deuxième\", \"t2\"]\n ]),\n {\n label: \"Tour\",\n value: \"t2\"\n }\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":1843,"value":"viewof autres = Inputs.toggle({\n label: \"Montrer abstention / blancs/ nuls\",\n value: false\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":1835,"value":"viewof geomType = Inputs.radio(\n new Map([\n [\"Régions\", \"communes\"],\n [\"Cercles (cartogramme de Dorling)\", \"circles\"]\n ]),\n {\n label: \"Montrer les communes comme:\",\n value: \"circles\"\n }\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":2990,"value":"viewof catMode = Inputs.radio(\n new Map([\n [\"Seulement candidat arrivé en tête\", \"tete\"],\n [\"Tous les candidats (rayures)\", \"tous\"]\n ]),\n {\n label: \"Montrer:\",\n value: \"tous\"\n }\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":1005,"value":"viewof circleExaggerationFactor = Inputs.range([0, 10], {\n label: \"Exagération taille des cercles\",\n step: 0.1,\n value: 1\n})\n","pinned":false,"hidden":false,"mode":"ojs"},{"id":3027,"value":"viewof collisionPadding = Inputs.range([0, 5], {\n label: \"Espace entre cercles (en pixels)\",\n step: 0.1,\n value: 0.5\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":3334,"value":"viewof stripeWidth = Inputs.range([4, 80], {\n label: \"Largeur des ensembles de rayures (en pixels)\",\n step: 1,\n value: 8\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":2564,"value":"---","pinned":false,"hidden":false,"mode":"md"},{"id":2783,"value":"## Code","pinned":false,"hidden":false,"mode":"md"},{"id":1851,"value":"height = 600","pinned":false,"hidden":false,"mode":"ojs"},{"id":2132,"value":"Div, SVG, groups","pinned":false,"hidden":false,"mode":"md"},{"id":3202,"value":"mainDiv = d3.create(\"div\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":767,"value":"svg = {\n const out = mainDiv\n .append(\"svg\")\n .attr(\"id\", \"electionMap\")\n .attr(\"viewBox\", [0, 0, width, height]);\n const gZoom = out.append(\"g\").attr(\"id\", \"gzoom\");\n gZoom.append(\"g\").attr(\"id\", \"communes\");\n gZoom.append(\"g\").attr(\"id\", \"deps\");\n gZoom.append(\"g\").attr(\"id\", \"circles\");\n out\n .append(\"rect\")\n .attr(\"x\", 0)\n .attr(\"y\", 0)\n .attr(\"width\", width)\n .attr(\"height\", height)\n .style(\"fill\", \"none\")\n .style(\"stroke\", \"gray\");\n return out;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2715,"value":"gCommunes = svg.select(\"#communes\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":2294,"value":"gDeps = svg.select(\"#deps\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":867,"value":"gCircles = svg.select(\"#circles\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":870,"value":"gLegend = svg.append(\"g\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":2123,"value":"gTitle = svg.append(\"g\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":3129,"value":"divInfo = mainDiv\n .append(\"div\")\n .style(\"position\", \"absolute\")\n .style(\"font-size\", \"14px\")\n .style(\"font-family\", \"Helvetica, Arial, sans-serif\")\n .style(\"max-width\", \"180px\")\n .style(\"overflow\", \"hidden\")\n .style(\"background\", \"white\")\n .style(\"padding\", \"5px\")\n .style(\"border\", \"0px\")\n .style(\"border-radius\", \"5px\")\n .style(\"box-shadow\", \"5px 5px 5px grey\")\n .style(\"pointer-events\", \"none\")\n .style(\"visibility\", \"hidden\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":3132,"value":"showInfo = (f) => {\n divInfo.selectAll(\"*\").remove();\n const html = [];\n html.push(\"\");\n html.push(f.properties.NOM);\n html.push(\"
\");\n\n //inscrits / exprimés\n html.push(f[tour].ins);\n html.push(\" inscrits
\");\n html.push(f[tour].exp);\n html.push(\" exprimés
\");\n\n //structure result detail\n const perc = f[tour][nor_abs].perc;\n const res = [];\n for (let i = 0; i < perc.length; i++)\n res.push({ p: perc[i], n: candidates[tour][nor_abs][i] });\n\n //sort\n res.sort((a, b) => b.p - a.p);\n\n for (let i = 0; i < perc.length; i++) {\n const d = res[i];\n html.push(i + 1);\n html.push(\". \");\n html.push(d.n);\n html.push(\" \");\n html.push(d.p.toFixed(2));\n html.push(\" %
\");\n }\n\n divInfo.html(html.join(\"\"));\n divInfo.style(\"visibility\", \"visible\");\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":3003,"value":"Zoom","pinned":false,"hidden":false,"mode":"md"},{"id":3007,"value":"{\n svg.call(\n d3\n .zoom()\n .extent([\n [0, 0],\n [width, height]\n ])\n .scaleExtent([0.1, 8])\n .on(\"zoom\", (e) => {\n svg.select(\"#gzoom\").attr(\"transform\", e.transform);\n //divInfo.attr(\"transform\", transform);\n })\n );\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2139,"value":"Title","pinned":false,"hidden":false,"mode":"md"},{"id":1181,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":898,"value":"Draw circles","pinned":false,"hidden":false,"mode":"md"},{"id":814,"value":"circles = {\n gCircles.selectAll(\"*\").remove();\n\n if (geomType === \"circles\")\n return (\n gCircles\n .selectAll(\"circle\")\n .data(dataFiltered)\n .enter()\n .append(\"circle\")\n .attr(\"cx\", (f) => f.cgeom[0])\n .attr(\"cy\", (f) => f.cgeom[1])\n //.attr(\"fill\", \"#5511ff99\")\n .attr(\"stroke\", \"#555\")\n .attr(\"stroke-width\", 0.2)\n .on(\"mouseover\", function (e, f) {\n d3.select(this).attr(\"stroke\", \"black\").attr(\"stroke-width\", 4);\n showInfo(f);\n })\n .on(\"mousemove\", function (e, f) {\n divInfo\n .style(\"left\", e.offsetX + 30 + \"px\")\n .style(\"top\", e.offsetY - 20 + \"px\");\n })\n .on(\"mouseout\", function (e, f) {\n d3.select(this).attr(\"stroke\", \"#555\").attr(\"stroke-width\", 0.2);\n divInfo.style(\"visibility\", \"hidden\");\n })\n );\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":995,"value":"Set circle radius","pinned":false,"hidden":false,"mode":"md"},{"id":999,"value":"{\n if (geomType === \"circles\") circles.attr(\"r\", (f) => f[tour][nor_abs].r);\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1001,"value":"toRadius = {\n return d3.scaleSqrt([0, 1000000], [0.25, circleExaggerationFactor * 50]);\n //(nb) => { return (circleExaggerationFactor * Math.sqrt(nb)) / 40;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2722,"value":"Draw regions","pinned":false,"hidden":false,"mode":"md"},{"id":2736,"value":"communesPoly = {\n gCommunes.selectAll(\"*\").remove();\n\n if (geomType === \"communes\") {\n return (\n gCommunes\n .selectAll(\"path\")\n .data(dataFiltered)\n .enter()\n .append(\"path\")\n //.attr(\"fill\", \"brown\") //\"#fbfbfb\")\n .attr(\"stroke\", \"#cccccc\")\n .attr(\"stroke-width\", \"0.3\")\n .attr(\"d\", path)\n .on(\"mouseover\", function (e, f) {\n const th = d3.select(this);\n th.attr(\"fill_\", th.attr(\"fill\"));\n th.attr(\"fill\", selColor);\n showInfo(f);\n })\n .on(\"mousemove\", function (e, f) {\n divInfo\n .style(\"left\", e.offsetX + 30 + \"px\")\n .style(\"top\", e.offsetY - 20 + \"px\");\n })\n .on(\"mouseout\", function (e, f) {\n const th = d3.select(this);\n th.attr(\"fill\", th.attr(\"fill_\"));\n divInfo.style(\"visibility\", \"hidden\");\n })\n );\n }\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":902,"value":"Apply patterns / color","pinned":false,"hidden":false,"mode":"md"},{"id":855,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":2297,"value":"Draw departements","pinned":false,"hidden":false,"mode":"md"},{"id":2301,"value":"{\n //clean\n gDeps.selectAll(\"*\").remove();\n\n //draw background regions\n gDeps\n .selectAll(\"path\")\n .data(departementsFiltered)\n .enter()\n .append(\"path\")\n .attr(\"d\", path)\n .style(\"fill\", \"none\")\n .style(\"stroke\", \"#bbbbbb\")\n .style(\"stroke-width\", \"1.6\")\n .style(\"stroke-linejoin\", \"round\");\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":906,"value":"Draw legend","pinned":false,"hidden":false,"mode":"md"},{"id":806,"value":"{\n //clean\n gLegend.selectAll(\"*\").remove();\n\n //if (type === \"No\") return;\n\n gLegend\n .attr(\"transform\", \"translate(10,180)\")\n .style(\"font-size\", 16)\n .style(\"font-family\", \"Arial\");\n\n let r = 0;\n if (geomType === \"circles\") {\n r = toRadius(100000);\n gLegend\n .append(\"circle\")\n .attr(\"cx\", r)\n .attr(\"cy\", r)\n .attr(\"r\", r)\n .attr(\"fill\", \"none\")\n .attr(\"stroke\", \"gray\");\n gLegend\n .append(\"text\")\n .text(\"100 000 \" + (autres ? \"inscrits\" : \"votes\"))\n .attr(\"x\", 2 * r + 5)\n .attr(\"y\", r + 5);\n }\n\n const cands = candidates[tour][nor_abs];\n const col = colors[tour][nor_abs];\n for (let i = 0; i < cands.length; i++) {\n gLegend\n .append(\"rect\")\n .style(\"fill\", col[i])\n .attr(\"x\", 0)\n .attr(\"y\", 2 * r + 20 + 20 * i)\n .attr(\"width\", 20)\n .attr(\"height\", 15);\n gLegend\n .append(\"text\")\n .text(cands[i])\n .attr(\"x\", 25)\n .attr(\"y\", 2 * r + 20 + 13 + 20 * i);\n }\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1123,"value":"//projection = d3.geoAzimuthalEqualArea().rotate([-1, -49.4]).scale(5500)\n\nprojection = {\n const de = regionExtents[region];\n return (\n d3\n .geoNaturalEarth1()\n //.geoAzimuthalEqualArea()\n //.rotate([-1, -49.4])\n .fitExtent(\n [\n [20, 20],\n [width - 20, height - 20]\n ],\n {\n type: \"MultiPoint\",\n coordinates: [\n [de.lonMin, de.latMin],\n [de.lonMax, de.latMax]\n ]\n }\n )\n );\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2791,"value":"path = d3.geoPath().projection(projection)","pinned":false,"hidden":false,"mode":"ojs"},{"id":2041,"value":"nor_abs = autres ? \"abs\" : \"nor\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":3118,"value":"viewof selColor = Inputs.color({ label: \"Selection color\", value: \"#ff00bb\" })","pinned":false,"hidden":false,"mode":"ojs"},{"id":1011,"value":"## Dorling optimisation","pinned":false,"hidden":false,"mode":"md"},{"id":1018,"value":"dorlingCartogramOptimisation = {\n //if (startOptimistation == 0) return;\n const simulation = d3\n .forceSimulation(dataFiltered)\n //.alphaMin(1e-12)\n .force(\n \"collide\",\n d3\n .forceCollide()\n .radius((f) => collisionPadding + f[tour][nor_abs].r)\n .iterations(4)\n //.strength(1)\n )\n .force(\n \"x\",\n d3.forceX().x((f) => f.cgeom[0])\n //.strength(0.05)\n )\n .force(\n \"y\",\n d3.forceY().y((f) => f.cgeom[1])\n //.strength(0.05)\n );\n\n simulation.on(\"tick\", () => {\n circles.attr(\"cx\", (f) => f.x).attr(\"cy\", (f) => f.y);\n });\n\n invalidation.then(() => simulation.stop());\n\n return simulation;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1351,"value":"Set initial position","pinned":false,"hidden":false,"mode":"md"},{"id":1317,"value":"{\n //set initial position of the circles\n for (const f of dataFiltered) {\n f.x = f.cgeom[0];\n f.y = f.cgeom[1];\n }\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":70,"value":"## Get election data","pinned":false,"hidden":false,"mode":"md"},{"id":179,"value":"Source: https://www.data.gouv.fr/fr/datasets/election-presidentielle-des-10-et-24-avril-2022-resultats-du-1er-tour/","pinned":false,"hidden":false,"mode":"md"},{"id":2471,"value":"Tour 1\n","pinned":false,"hidden":false,"mode":"md"},{"id":2193,"value":"resCommT1 = FileAttachment(\"p2022-resultats-communes-t1.csv\").csv()","pinned":false,"hidden":false,"mode":"ojs"},{"id":2460,"value":"resCommT1_ = resCommT1\n .filter((e) => {\n const c = e.CodeInsee;\n if (c === \"ZW001\") return false; //ZW001 Wallis-Et-Futuna\n if (c === \"ZX701\") return false; //ZX701 Saint-Barthélémy\n if (c === \"ZX801\") return false; //ZX801 Saint-Martin\n if (c.includes(\"ZZ\")) return false; //others\n return true;\n })\n .map((e) => {\n const c = e.CodeInsee;\n //replace \"Zx\" with \"97\" in CodeInsee\n if (c.includes(\"Z\")) e.CodeInsee = \"97\" + c.substring(2, c.length);\n return e;\n })","pinned":false,"hidden":false,"mode":"ojs"},{"id":2333,"value":"resCommT1I = d3.index(resCommT1_, (d) => d.CodeInsee)","pinned":false,"hidden":false,"mode":"ojs"},{"id":2475,"value":"Tour 2","pinned":false,"hidden":false,"mode":"md"},{"id":2337,"value":"resCommT2 = FileAttachment(\"p2022-resultats-communes-t2.csv\").csv()","pinned":false,"hidden":false,"mode":"ojs"},{"id":2468,"value":"resCommT2_ = resCommT2\n .filter((e) => {\n const c = e.CodeInsee;\n if (c === \"ZW001\") return false; //ZW001 Wallis-Et-Futuna\n if (c === \"ZX701\") return false; //ZX701 Saint-Barthélémy\n if (c === \"ZX801\") return false; //ZX801 Saint-Martin\n if (c.includes(\"ZZ\")) return false; //others\n return true;\n })\n .map((e) => {\n const c = e.CodeInsee;\n //replace \"Zx\" with \"97\" in CodeInsee\n if (c.includes(\"Z\")) e.CodeInsee = \"97\" + c.substring(2, c.length);\n return e;\n })","pinned":false,"hidden":false,"mode":"ojs"},{"id":2341,"value":"resCommT2I = d3.index(resCommT2_, (d) => d.CodeInsee)","pinned":false,"hidden":false,"mode":"ojs"},{"id":84,"value":"## Get map geometries","pinned":false,"hidden":false,"mode":"md"},{"id":2579,"value":"communesTopo = FileAttachment(\"commune_2022_5M.topojson\").json()","pinned":false,"hidden":false,"mode":"ojs"},{"id":2582,"value":"communes = topojson.feature(communesTopo, communesTopo.objects.commune_2022_5M)\n .features","pinned":false,"hidden":false,"mode":"ojs"},{"id":2661,"value":"regions = {\n const out = communes\n .map((e) => e.properties.INSEE_REG)\n .filter((x, i, a) => a.indexOf(x) === i);\n return out.concat([\"all\"]);\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2700,"value":"regionNames = {\n return {\n \"84\": \"Auvergne-Rhône-Alpes\",\n \"93\": \"Provence-Alpes-Côte d'Azur\",\n \"75\": \"Nouvelle-Aquitaine\",\n \"28\": \"Normandie\",\n \"76\": \"Occitanie\",\n \"32\": \"Hauts-de-France\",\n \"52\": \"Pays de la Loire\",\n \"11\": \"Île-de-France\",\n \"24\": \"Centre-Val de Loire\",\n \"44\": \"Grand Est\",\n \"53\": \"Bretagne\",\n \"27\": \"Bourgogne-Franche-Comté\",\n \"94\": \"Corse\",\n \"01\": \"Guadeloupe\",\n \"02\": \"Martinique\",\n \"06\": \"Mayotte\",\n \"04\": \"La Réunion\",\n \"03\": \"Guyane\",\n all: \"France entière\"\n };\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1633,"value":"Compute extent of regions","pinned":false,"hidden":false,"mode":"md"},{"id":1628,"value":"regionExtents = {\n const out = {};\n for (let i = 0; i < communes.length; i++) {\n const c = communes[i];\n const reg = c.properties.INSEE_REG;\n const extC = d3.geoBounds(c.geometry);\n\n const ext = out[reg];\n if (ext) {\n ext.lonMin = Math.min(+ext.lonMin, +extC[0][0]);\n ext.latMin = Math.min(+ext.latMin, +extC[0][1]);\n ext.lonMax = Math.max(+ext.lonMax, +extC[1][0]);\n ext.latMax = Math.max(+ext.latMax, +extC[1][1]);\n } else\n out[reg] = {\n lonMin: +extC[0][0],\n latMin: +extC[0][1],\n lonMax: +extC[1][0],\n latMax: +extC[1][1]\n };\n }\n\n //entire France\n out[\"all\"] = { lonMin: -5, lonMax: 9.5, latMin: 41.3, latMax: 51.6 };\n\n return out;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1548,"value":"## Extract and structure data","pinned":false,"hidden":false,"mode":"md"},{"id":2366,"value":"$33","pinned":false,"hidden":false,"mode":"ojs"},{"id":2395,"value":"dataFiltered = data.filter((e) => {\n //show all\n if (region === \"all\") return true;\n //keep only those in the selected region\n return e.properties.INSEE_REG === region;\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":2287,"value":"## Départements (background)","pinned":false,"hidden":false,"mode":"md"},{"id":2807,"value":"departementsTopo = FileAttachment(\"departement_2022_5M.topojson\").json()","pinned":false,"hidden":false,"mode":"ojs"},{"id":2814,"value":"departements = topojson.feature(\n departementsTopo,\n departementsTopo.objects.departement_2022_5M\n).features","pinned":false,"hidden":false,"mode":"ojs"},{"id":2309,"value":"departementsFiltered = departements.filter((f) => {\n //show all\n if (region === \"all\") return true;\n //keep only those in the selected region\n return f.properties.INSEE_REG === region;\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":395,"value":"## Set candidate colour\n\nCandidate names and code, ordered from left to right wing:","pinned":false,"hidden":false,"mode":"md"},{"id":2225,"value":"candidates = {\n return {\n t1: {\n nor: [\n \"Arthaud\",\n \"Poutou\",\n \"Roussel\",\n \"Mélenchon\",\n \"Hidalgo\",\n \"Jadot\",\n \"Macron\",\n \"Pécresse\",\n \"Lassale\",\n \"Dupont-Aignan\",\n \"Le Pen\",\n \"Zemmour\"\n ],\n abs: [\n \"Arthaud\",\n \"Poutou\",\n \"Roussel\",\n \"Mélenchon\",\n \"Hidalgo\",\n \"Jadot\",\n \"Abstention - blancs - nuls\",\n \"Macron\",\n \"Pécresse\",\n \"Lassale\",\n \"Dupont-Aignan\",\n \"Le Pen\",\n \"Zemmour\"\n ]\n },\n t2: {\n nor: [\"Macron\", \"Le Pen\"],\n abs: [\"Macron\", \"Abstention - blancs - nuls\", \"Le Pen\"]\n }\n };\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":412,"value":"The corresponding colors:","pinned":false,"hidden":false,"mode":"md"},{"id":2247,"value":"colors = {\n return {\n t1: {\n nor: [\n \"#9d0d16\",\n \"#ce2929\",\n \"#f1001c\",\n \"#ff3333\",\n \"#ff6d90\",\n \"#23b73d\",\n \"#ff9f0e\",\n \"#0890c5\",\n \"#617b75\",\n \"#2443a7\",\n \"#8d6026\",\n \"#654519\"\n ],\n abs: [\n \"#9d0d16\",\n \"#ce2929\",\n \"#f1001c\",\n \"#ff3333\",\n \"#ff6d90\",\n \"#23b73d\",\n colorAutre,\n \"#ff9f0e\",\n \"#0890c5\",\n \"#617b75\",\n \"#2443a7\",\n \"#8d6026\",\n \"#654519\"\n ]\n },\n t2: {\n nor: [\"#eacd1a\", \"#9d257e\"],\n abs: [\"#eacd1a\", colorAutre, \"#9d257e\"]\n }\n };\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2271,"value":"viewof colorAutre = Inputs.color({\n label: \"Abst + blanc + nul\",\n value: \"#8aad89\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":7,"value":"## Libraries","pinned":false,"hidden":false,"mode":"md"},{"id":18,"value":"d3 = require(\"d3@6\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":28,"value":"topojson = require(\"topojson\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":681,"value":"The dedicated library for striped circles:","pinned":false,"hidden":false,"mode":"md"},{"id":20,"value":"sc = require(\"stripedcircle@0.9.11\")","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W34","stdlib":"1","titling":"auto"}