31:T47f,Plot.plot({ width: 2000, height: 1100, x: { label: "> degrees longitude", domain: [3.4, 7.2] }, y: { domain: [0.01, 0.99], ticks: 0 }, color: { type: "categorical", scheme: "tableau10" }, marks: [ Plot.rectY(bigCitiesBounds, { x1: "minLon", x2: "maxLon", fill: "#ccc", fillOpacity: 0.2, title: "city" }), Plot.dot( wijkenClean, Plot.dodgeY({ x: "lon", r: "bevolking", title: (d) => `Provincie ${d.provincie} ${d.gemeente} ${d.wijk} ${d.bevolking} inhabitants`, fill: colorBy, strokeWidth: 2, anchor: "middle" }) ), Plot.text( wijkenClean, Plot.dodgeY({ filter: (d) => d.bevolking > 25_000, x: "lon", r: "bevolking", text: (d) => (d.bevolking / 1e3).toFixed() + "k", fill: "black", fontSize: 15, anchor: "middle", dy: 0.2 }) ) // Plot.text(quantiles, { // y: "lat", // x: 0.05, // fontSize: 15, // text: "text", // fill: "grey", // frameAnchor: "left" // }) ] })32:T18e9,gemeentesPerProvincieObj = ({ Drenthe: [ "Aa en Hunze", "Assen", "Borger-Odoorn", "Coevorden", "Emmen", "Hoogeveen", "Meppel", "Midden-Drenthe", "Noordenveld", "Tynaarlo", "Westerveld", "De Wolden" ], Flevoland: [ "Almere", "Dronten", "Lelystad", "Noordoostpolder", "Urk", "Zeewolde" ], Friesland: [ "Achtkarspelen", "Ameland", "Dantumadiel", "De Fryske Marren", "Harlingen", "Heerenveen", "Leeuwarden", "Noardeast-Fryslân", "Ooststellingwerf", "Opsterland", "Schiermonnikoog", "Smallingerland", "Súdwest-Fryslân", "Terschelling", "Tytsjerksteradiel", "Vlieland", "Waadhoeke", "Weststellingwerf" ], Gelderland: [ "Aalten", "Apeldoorn", "Arnhem", "Barneveld", "Berg en Dal", "Berkelland", "Beuningen", "Bronckhorst", "Brummen", "Buren", "Culemborg", "Doesburg", "Doetinchem", "Druten", "Duiven", "Ede", "Elburg", "Epe", "Ermelo", "Harderwijk", "Hattem", "Heerde", "Heumen", "Lingewaard", "Lochem", "Maasdriel", "Montferland", "Neder-Betuwe", "Nijkerk", "Nijmegen", "Nunspeet", "Oldebroek", "Oost Gelre", "Oude IJsselstreek", "Overbetuwe", "Putten", "Renkum", "Rheden", "Rozendaal", "Scherpenzeel", "Tiel", "Voorst", "Wageningen", "West Betuwe", "West Maas en Waal", "Westervoort", "Wijchen", "Winterswijk", "Zaltbommel", "Zevenaar", "Zutphen" ], Groningen: [ "Eemsdelta", "Groningen", "Het Hogeland", "Midden-Groningen", "Oldambt", "Pekela", "Stadskanaal", "Veendam", "Westerkwartier", "Westerwolde" ], Limburg: [ "Beek", "Beekdaelen", "Beesel", "Bergen (L.)", "Brunssum", "Echt-Susteren", "Eijsden-Margraten", "Gennep", "Gulpen-Wittem", "Heerlen", "Horst aan de Maas", "Kerkrade", "Landgraaf", "Leudal", "Maasgouw", "Maastricht", "Meerssen", "Mook en Middelaar", "Nederweert", "Peel en Maas", "Roerdalen", "Roermond", "Simpelveld", "Sittard-Geleen", "Stein", "Vaals", "Valkenburg aan de Geul", "Venlo", "Venray", "Voerendaal", "Weert" ], "Noord-Brabant": [ "Alphen-Chaam", "Altena", "Asten", "Baarle-Nassau", "Bergeijk", "Bergen op Zoom", "Bernheze", "Best", "Bladel", "Boekel", "Boxtel", "Breda", "Cranendonck", "Deurne", "Dongen", "Drimmelen", "Eersel", "Eindhoven", "Etten-Leur", "Geertruidenberg", "Geldrop-Mierlo", "Gemert-Bakel", "Gilze en Rijen", "Goirle", "Halderberge", "Heeze-Leende", "Helmond", "'s-Hertogenbosch", "Heusden", "Hilvarenbeek", "Laarbeek", "Land van Cuijk", "Loon op Zand", "Maashorst", "Meierijstad", "Moerdijk", "Nuenen, Gerwen en Nederwetten", "Oirschot", "Oisterwijk", "Oosterhout", "Oss", "Reusel-De Mierden", "Roosendaal", "Rucphen", "Sint-Michielsgestel", "Someren", "Son en Breugel", "Steenbergen", "Tilburg", "Valkenswaard", "Veldhoven", "Vught", "Waalre", "Waalwijk", "Woensdrecht", "Zundert" ], "Noord-Holland": [ "Aalsmeer", "Alkmaar", "Amstelveen", "Amsterdam", "Bergen (NH.)", "Beverwijk", "Blaricum", "Bloemendaal", "Castricum", "Den Helder", "Diemen", "Dijk en Waard", "Drechterland", "Edam-Volendam", "Enkhuizen", "Gooise Meren", "Haarlem", "Haarlemmermeer", "Heemskerk", "Heemstede", "Heiloo", "Hilversum", "Hollands Kroon", "Hoorn", "Huizen", "Koggenland", "Landsmeer", "Laren", "Medemblik", "Oostzaan", "Opmeer", "Ouder-Amstel", "Purmerend", "Schagen", "Stede Broec", "Texel", "Uitgeest", "Uithoorn", "Velsen", "Waterland", "Wijdemeren", "Wormerland", "Zaanstad", "Zandvoort", "Weesp" ], Overijssel: [ "Almelo", "Borne", "Dalfsen", "Deventer", "Dinkelland", "Enschede", "Haaksbergen", "Hardenberg", "Hellendoorn", "Hengelo", "Hof van Twente", "Kampen", "Losser", "Oldenzaal", "Olst-Wijhe", "Ommen", "Raalte", "Rijssen-Holten", "Staphorst", "Steenwijkerland", "Tubbergen", "Twenterand", "Wierden", "Zwartewaterland", "Zwolle" ], Utrecht: [ "Amersfoort", "Baarn", "De Bilt", "Bunnik", "Bunschoten", "Eemnes", "Houten", "IJsselstein", "Leusden", "Lopik", "Montfoort", "Nieuwegein", "Oudewater", "Renswoude", "Rhenen", "De Ronde Venen", "Soest", "Stichtse Vecht", "Utrecht", "Utrechtse Heuvelrug", "Veenendaal", "Vijfheerenlanden", "Wijk bij Duurstede", "Woerden", "Woudenberg", "Zeist" ], Zeeland: [ "Borsele", "Goes", "Hulst", "Kapelle", "Middelburg", "Noord-Beveland", "Reimerswaal", "Schouwen-Duiveland", "Sluis", "Terneuzen", "Tholen", "Veere", "Vlissingen" ], "Zuid-Holland": [ "Alblasserdam", "Albrandswaard", "Alphen aan den Rijn", "Barendrecht", "Bodegraven-Reeuwijk", "Brielle", "Capelle aan den IJssel", "Delft", "'s-Gravenhage", "Dordrecht", "Goeree-Overflakkee", "Gorinchem", "Gouda", "Hardinxveld-Giessendam", "Hellevoetsluis", "Hendrik-Ido-Ambacht", "Hillegom", "Hoeksche Waard", "Kaag en Braassem", "Katwijk", "Krimpen aan den IJssel", "Krimpenerwaard", "Lansingerland", "Leiden", "Leiderdorp", "Leidschendam-Voorburg", "Lisse", "Maassluis", "Midden-Delfland", "Molenlanden", "Nieuwkoop", "Nissewaard", "Noordwijk", "Oegstgeest", "Papendrecht", "Pijnacker-Nootdorp", "Ridderkerk", "Rijswijk", "Rotterdam", "Schiedam", "Sliedrecht", "Teylingen", "Vlaardingen", "Voorschoten", "Waddinxveen", "Wassenaar", "Westland", "Westvoorne", "Zoetermeer", "Zoeterwoude", "Zuidplas", "Zwijndrecht" ] })33:[{"id":"b952dadd83b3c9fd46db24195bd081c4b88744eb6b3a6d5ffae27420a70c53a43a59080449aaeab8c17af7a5042bc16ffa39d871a627b13790bcb2b4635c6091","href":"https://static.observableusercontent.com/files/b952dadd83b3c9fd46db24195bd081c4b88744eb6b3a6d5ffae27420a70c53a43a59080449aaeab8c17af7a5042bc16ffa39d871a627b13790bcb2b4635c6091","name":"kerncijfers_wijken_en_buurten_2021@13.csv","type":"text/csv","lastModified":1660768451482.247,"size":722203},{"id":"b292894de913bb6f76a026f03d9ef025f522f54bba39c322a5237320247fc52d5cd1955912a0888165c85475f9f62f80784eda39afbc9e4213fcbe6d2e840312","href":"https://static.observableusercontent.com/files/b292894de913bb6f76a026f03d9ef025f522f54bba39c322a5237320247fc52d5cd1955912a0888165c85475f9f62f80784eda39afbc9e4213fcbe6d2e840312","name":"wijken.json","type":"application/json","lastModified":1660768451482.247,"size":3256556}] 2f:{"title":"Dutch People from Sluis to Schanze (Bad Nieuweschans)","cells":[{"id":0,"value":"# Dutch People from Sluis to Schanze (Bad Nieuweschans)\n\n","pinned":false,"hidden":false,"mode":"md"},{"id":980,"value":"freelanceBanner","pinned":false,"hidden":false,"mode":"ojs"},{"id":977,"value":"🇳🇱: *Nederlanders van Sluis tot Schanze (Bad Nieuweschans)* \n\nEach dot represents a single 'wijk', a statistical division meaning something like 'tract' or 'district'. They’re determined by the municipalities themselves, so they’re pretty arbitrary. Each 'wijk' is shown at the longitude of its centroid. Hover over a dot to show the name of the wijk and its number of inhabitants.\n\nIt's defined by CBS as:\n\n> a part of a municipality, consisting of one or more 'buurten' (neighborhoods). Often a wijk corresponds to a town or part of a larger town.\n\n^ Special Caribbean municipalities Bonaire, Saba & Sint Eustatius excluded and a few ['wijken'](#leftOvers) I was not able to match too\n\n\n## Source\n\n* [CBS Wijk- en buurtkaart](https://www.cbs.nl/nl-nl/dossier/nederland-regionaal/geografische-data/wijk-en-buurtkaart-2022)","pinned":false,"hidden":false,"mode":"md"},{"id":613,"value":"viewof colorBy = Inputs.radio([\"provincie\", \"gemeente\"], {\n label: \"Color by\",\n value: \"provincie\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":86,"value":"$31","pinned":true,"hidden":false,"mode":"ojs"},{"id":992,"value":"## See Also\n\nThe North to South variant.","pinned":false,"hidden":false,"mode":"md"},{"id":989,"value":"preview({\n path: \"@julesblm/dutch-people-from-eemshaven-to-epen\",\n thumbnail: \"a9daf9c2dcc5b2959eb9912a541d7a27b9d08f674f5c945f87c0465ad08e8499\",\n title: \"Dutch People from Eemshaven tot Epen\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":118,"value":"## Data","pinned":false,"hidden":false,"mode":"md"},{"id":801,"value":"// this is a pretty rough, not-super-correct calculation\nquantiles = {\n const formatPercentage = d3.format(\".0%\");\n const wijkenWestToEast = wijkenClean.sort((a, b) =>\n d3.descending(a.lon, b.lon)\n );\n const cumulative = d3.cumsum(wijkenWestToEast, (d) => d.bevolking);\n\n const quantiles = [0.1, 0.25, 0.5, 0.75, 0.9];\n const indices = quantiles.map((n) => d3.quantileIndex(cumulative, n));\n\n return indices.map((wijkIndex, i) => ({\n lat: wijkenWestToEast[wijkIndex - 1].lat,\n text: `${formatPercentage(1 - quantiles[i])} live east of here (aprox.)`,\n wijkIndex: wijkIndex - 1\n }));\n}","pinned":true,"hidden":false,"mode":"ojs"},{"id":364,"value":"cities = [\n { text: \"Groningen\", lat: 53.216667 },\n { text: \"Utrecht\", lat: 52.1 },\n { text: \"Amsterdam\", lat: 52.36 },\n { text: \"The Hague\", lat: 52.065 },\n { text: \"Rotterdam\", lat: 51.916667 },\n { text: \"Eindhoven\", lat: 51.455 },\n { text: \"Tilburg\", lat: 51.55 },\n { text: \"Breda\", lat: 51.588889 },\n { text: \"Nijmegen\", lat: 51.8475 },\n { text: \"Maastricht\", lat: 50.85 },\n { text: \"Den Bosch\", lat: 51.683333 },\n { text: \"Amersfoort\", lat: 52.15 },\n { text: \"Zwolle\", lat: 52.516667 },\n { text: \"Enschede\", lat: 52.216667 },\n { text: \"Arnhem\", lat: 51.983333 },\n { text: \"Almere\", lat: 52.4 }\n]","pinned":false,"hidden":false,"mode":"ojs"},{"id":516,"value":"gemeentesPerProvincie = new Map(Object.entries(gemeentesPerProvincieObj))","pinned":false,"hidden":false,"mode":"ojs"},{"id":480,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":100,"value":"population = FileAttachment(\"kerncijfers_wijken_en_buurten_2021@13.csv\").csv()","pinned":false,"hidden":false,"mode":"ojs"},{"id":44,"value":"centers = wijken.features.map((d) => {\n const match = population.find((e) => {\n const isDuplicateName = duplicateWijkNames.has(e[\"wijk-buurt\"]);\n const isNameMatch =\n e[\"wijk-buurt\"].toLowerCase() === d.properties.wijk.toLowerCase();\n\n // if the wijknames is not unique check the gemeente too\n // the population and map data are from different years and in between some gemeentes have merged\n return isDuplicateName\n ? isNameMatch && e.gemeente === d.properties.gemeente\n : isNameMatch;\n });\n\n const center = turf.center(d);\n\n let provincie;\n for (const provincieG of gemeentesPerProvincie) {\n if (provincieG[1].includes(d.properties.gemeente)) {\n provincie = provincieG[0];\n }\n }\n\n const centerCoords = center.geometry.coordinates;\n\n return {\n ...d.properties,\n provincie,\n bevolking: match?.bevolking ? Number(match.bevolking) : undefined,\n lon: centerCoords[0],\n lat: centerCoords[1]\n };\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":258,"value":"bounds = getBounds(centers)","pinned":false,"hidden":false,"mode":"ojs"},{"id":384,"value":"bigCities = [\"Amsterdam\", \"Rotterdam\", \"'s-Gravenhage\", \"Utrecht\", \"Eindhoven\"]","pinned":false,"hidden":false,"mode":"ojs"},{"id":386,"value":"bigCitiesBounds = bigCities.map((city) => {\n const cityData = centers.filter((d) => d.gemeente === city);\n return { ...getBounds(cityData), city };\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":381,"value":"getBounds = (features) => {\n const maxLon = d3.max(features, (d) => d.lon);\n const maxLat = d3.max(features, (d) => d.lat);\n\n const minLon = d3.min(features, (d) => d.lon);\n const minLat = d3.min(features, (d) => d.lat);\n\n return { maxLon, maxLat, minLon, minLat };\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":986,"value":"function preview(\n { path, title, author, thumbnail },\n { target = \"_blank\" } = {}\n) {\n return htl.html`\n (event.currentTarget.firstElementChild.style.borderColor =\n \"#1b1e23\")} onmouseout=${(event) =>\n (event.currentTarget.firstElementChild.style.borderColor = \"#e8e8e8\")}>\n

${title}

\n`;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":207,"value":"// Don't know how to match these :(\nleftOvers = centers.filter(\n (d) => typeof d.bevolking === \"undefined\" && d.wijk !== \"Groot water\"\n)","pinned":true,"hidden":false,"mode":"ojs"},{"id":280,"value":"wijkenClean = centers.filter((d) => Boolean(d.bevolking))","pinned":true,"hidden":false,"mode":"ojs"},{"id":227,"value":"duplicateWijkNames = new Set(\n wijken.features\n .map((d) => d.properties.wijk)\n .filter((e, i, a) => a.indexOf(e) !== i)\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":27,"value":"wijken = FileAttachment(\"wijken.json\").json()","pinned":false,"hidden":false,"mode":"ojs"},{"id":55,"value":"// turf = import(\"https://cdn.skypack.dev/@turf/turf\")\nturf = require(\"@turf/turf\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":982,"value":"import { freelanceBanner } from \"@julesblm/freelance-banner\"","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W33","stdlib":"1","titling":"auto"}