31:T694,md`## La saisonnalité évolue : vacances et beau temps l'emportent sur les contraintes religieuses ou agricoles Le démographe Jean Bourgeois le note en 1946, les **impératifs économiques** pèsent encore à cette époque : les moissons et les vendanges ne sont pas le meilleur moment pour convoler. Comme le résume le dicton lorrain : « Ceux qui se marient en août ne ramassent point de sous ! » Et chacun(e) se souvient, notamment dans les régions du Sud, plus religieuses, qu'il ne convenait pas de se marier en mai : « Noces de mai ne vont jamais ! » Les **préceptes catholiques** étaient clairs, le carême (45 jours avant Pâques) et les « mois de Marie » (mai et août) devaient être évités. Si l'interdit du carême trouve ses racines loin dans le passé, le culte de la vierge s'est surtout développé à la fin du XIX ^e siècle. On a vu parallèlement monter, après la 1^ère Guerre Mondiale, le bannissement du mois de novembre, désormais réservé à la célébration des morts. Ainsi s'expliquent, encore sensibles dans les années 1950, les **fluctuations marquées** de la saisonnalité des mariages : creux en mars et pics relatifs ou massifs de février et **avril** (mariages anticipés ou retardés après le carême), niveaux plus faibles en **mai** et en **novembre**. Ces contraintes se sont progressivement effacées dans la seconde moitié du XX ^e siècle. Il s'agit désormais de **« réussir son mariage »**. Les périodes de vacances scolaires et de météo plus favorable sont nettement privilégiées. **La plage de prédilection s'étend aujourd'hui de juin à septembre**. `32:Tbf0,radial_chart = { const svg = d3.create("svg") .attr("width", rwidth) .attr("height", rwidth) .attr("viewBox", [-rwidth / 2, -rwidth / 2, rwidth, rwidth]) ; svg.append("title") .text("Évolution mensuelle des naissances depuis "+ annees[0] + " en France métropolitaine") //année en cours svg.append("g").append("text") .text(date.toLocaleString("fr", {year:'numeric'})) .style("font-variant-numeric", "tabular-nums") .attr("font-family", "sans-serif") .attr('font-size', '24') .attr('font-weight', 'bold') .attr("fill", "#FF6600") .attr("y", -rwidth/2 + 15) .attr("x", -rwidth/2) .attr("dy", "0.35em") //source svg.append("g").append("text") .text('Source : Insee') .style("font", "italic 12px var(--sans-serif)") .attr("font-family", "sans-serif") .attr("y", rwidth/2 - 5) .attr("x", -rwidth/2) //cercle de référence avec rayon de (100 / 12) % if (numvar == 'PCT') { svg.append("g").append("circle") .attr("cy",0 ) .attr("cx", 0 ) .attr('stroke', '#ddd')//#FFEFE6 .attr('stroke-dasharray',"4") .attr('stroke-width',"4") .attr('fill', 'none') .attr("r", y(100/12)); } svg.append("g") .call(xAxis); svg.append("g") .call(yAxis); const trail = svg.append("g") ; //ensemble des tracés jusqu'à l'année courante de l'animation const last = svg.append("path") //tracé en orange figurant l'année courante de l'animation .attr("fill", "none") .attr("stroke", "#FF6600") .attr("stroke-miterlimit", 1) .attr("stroke-width", 4); const data = data_radial ; return Object.assign(svg.node(), { //ajout d'une fonction au graphique, qui peut référer à ses constituants update(date) { const i = bisectDate(data, d3.utcMonth.offset(date, -12), 0), j = bisectDate(data, date, 0), curveType = liss_radial == 'on' ? 'curveBasis' : 'curveCardinal' ; last.attr("d", line.curve(i > 0 ? d3[curveType + "Closed"] : d3[curveType]) .radius(d => y(d[numvar])) (data.slice(Math.max(0, i == 0 ? 0 : i + 1), Math.min(j + 1, data.length - 1) ))); const subdata = data.slice(0, j + 1), //extrait des données mensuelles jusqu'à l'année courante lastan = subdata[subdata.length-1].AN ; trail.selectAll('path') .data(d3.group(subdata, d => d.AN)) //découpage des données par année, pour colorier chaque path différemment .join("path") .attr("fill", "none").attr("stroke", d => radial_colorscale(+d[0])) .attr("stroke-width", 0.5) .attr("stroke-miterlimit", 1) .attr("d", (d, k) => line.curve(d3[ (i+1) % 12 == 0 || d[0] < lastan ? "curveLinearClosed" : "curveLinear" ]) .radius(r => y(r[numvar])) (d[1]) ); return "Radial chart updating..." } }); }33:T8ff,rollingChart = { const libmois = new Map(mois.map(d => [d.value, d.label])).get(+curmois) ; const data = data_extrait_mensuel ;//.derive({ index: () => op.row_number() - 1 }); const links = data .derive({ AN: aq.rolling(d => d.AN, frame), PCT: aq.rolling(d => d.PCT, frame) }) .unroll(['AN', 'PCT']); //démultiplie les lignes avec les années voisines const sel = vl.selectSingle('link') .on('mouseover').clear('mouseout') .fields('date').empty('none').nearest(true); const vlc = await vl.data(data) .layer( vl.markBar({fill: 'transparent'}) //détermine l'index de la barre survolée .select(sel) .encode( vl.x().fieldO('AN').axis({labelAngle: 0, labelOverlap: true}).title(null) ), vl.markBar() .encode( vl.x().fieldO('AN'), vl.y().fieldQ('PCT').scale({domainMax:max_pct}).title(null), vl.color().value('#1e9b9e'), ), vl.markBar({fill: '#23BABA'}) //barres voisines de celle survolée => couleur + légère .data(links) // source de données différente .transform(vl.filter(sel)) .encode( vl.x().fieldO('AN'), vl.y().fieldQ('PCT') ), vl.markLine({color: 'black', interpolate: 'monotone'}) // courbe lissée .encode( vl.x().fieldO('AN'), vl.y().fieldQ('ravg').title(null), vl.color().value('#FF6600') ), vl.markRule({color: 'black', strokeWidth: 1.5, strokeDash: [3, 3]}) .data(links) // source de données différente .transform(vl.filter(sel)) .encode( vl.x().min('AN').type('ordinal'), vl.x2().max('AN').type('ordinal'), vl.y().mean('ravg').title(null) ), vl.markCircle({color: 'black', size: 50, opacity: 1}) .transform(vl.filter(sel)) .encode( vl.x().fieldO('AN'), vl.y().fieldQ('ravg') ) ) .title({ text: [libmois + ' : mariages en % du total annuel','(avec lissage en moyenne mobile)'], anchor: 'start' }) .width(cwidth - 45) .render({renderer: 'svg'}) let svg = vlc.querySelector('svg'); svg.removeAttribute("xmlns"); svg.removeAttribute("xmlns:xlink") ; return vlc ; }34:T79a,viewof layeredBar = { vl.vega.timeFormatLocale(locale); vl.vega.formatLocale(locale); const cheight = 350, color_range = mois.map( (d,i) => { //correspondance mois => couleur du trimestre const j = Math.floor((d.value + 1 == 13 ? 0 : d.value) / 3) ; return color_trims[j] }) ; console.log(color_range) return vl.data(agregats.detail_mensuel .params({an, mois, width}) .filter(d => d.AN == an) .derive({MOISC: d => mois[d.MOIS - 1][width < 600 ? 'label_s' : 'label'], //libellé du mois, long ou court AN: d => d.MOIS == 1 ? an : ""})) // valeur de l'année en orange .encode( vl.x().fieldQ("PCT").axis({tickCount: 6}) .scale({domainMax: max_pct}).title(null), // axe commun à toutes les années vl.y().fieldN("MOIS").sort('-x').axis(null) // mois triés en ordre décroissant des PCT (axe x) ) .layer( //3 layers : barres, noms des mois, année courante vl.markBar() .encode( vl.color().fieldN('MOIS').scale({domain: mois.map(d => d.m), range: color_range}).legend(null), vl.tooltip().fieldQ('PCT').format(".3") ), vl.markText({ align: "right", dx: -5, dy: 1 }) // nom des mois sur les barres .encode(vl.text().fieldN("MOISC")) , vl.markText({ align: "center", dy: -13, dx:0, fontSize: 24, color: '#FF6600', fontWeight: 'bold' }) .encode( vl.x({datum: 12.5}), vl.y().value(cheight), vl.text().fieldN("AN") ) ) .height(cheight) .width(cwidth - 30) .title({text: ['Distribution mensuelle des mariages (' + an + ')', 'en % du total annuel - France métropolitaine'], anchor: 'start'}) .render({renderer: 'svg'}) }35:T479,typmar_chart = { vl.vega.timeFormatLocale(locale); vl.vega.formatLocale(locale); vl.vega.expressionFunction('fmt_typmar', d => d == '1' ? 'Sexe différent' : 'Même sexe') ; return vl.markLine({size: 3, interpolate: 'cardinal'}) .data(data_typmar) .encode( vl.x().fieldN('MOIS') .axis({labelAngle: 0, grid: true, tickColor: "#ccc", title: null, labelExpr: width < 600 ? "monthAbbrevFormat(datum.label-1)": "monthFormat(datum.label-1)"}), vl.y().fieldQ('PCT').title(null), vl.color().fieldN('TYPMAR3') .legend({title: null, orient: 'top', symbolStrokeWidth: 3, symbolSize: 400, labelFontSize: 12, labelExpr: "fmt_typmar(datum.label)"}) .scale({range: ['#f4b84d', '#1e9b9e']}), vl.tooltip().fieldQ('PCT').format(".3") ) .title({ text: ['Profil mensuel des mariages (2013-' + annees[annees.length - 1] + ')', 'par type de mariage - France métropolitaine (%)'], anchor: 'start' }) .width(cwidth - 30) .render({renderer: 'svg'}) }36:T52c,md `## Sources & Inspirations * [Les mariages en 2018, Insee](https://www.insee.fr/fr/statistiques/4299748?sommaire=4273674) * [Proportion des mariages de l'année ayant lieu au cours du mois, Baptiste Coulmont, 2020](https://twitter.com/coulmont/status/1338871569825861632) * [La saison des mariages, Économie & Statistiques, Bruno Lutinier, 1987](https://www.persee.fr/doc/estat_0336-1454_1987_num_204_1_5137#:~:text=Avec%20avril%2C%20les%20mois%20d,constituent%20la%20saison%20des%20mariages) * [La saisonnalité des mariages d’hier et d’aujourd’hui, revue Population, Wilfried Rault et Arnaud Régnier-Loilier, 2016](https://www.ined.fr/fichier/rte/General/Publications/Population/2016/Population4-2016/PopF_4_2016_70ans_RaultEtAl_Bourgeois-saisonalite-naissance.pdf) * [Le mariage, coutume saisonnière, revue Population, Jean Bourgeois, 1946](https://www.ined.fr/fichier/rte/General/Publications/Population/2016/Population4-2016/PopF_4_2016_70ans_RaultEtAl_Bourgeois-saisonalite-naissance.pdf) * [Radial Area Chart - Mike Bostock](https://observablehq.com/@d3/radial-area-chart) * [Arctic Sea Ice Volume and Extent - Mike Bostock](https://observablehq.com/@mbostock/arctic-sea-ice-volume-and-extent) * [Working with Window Queries - Jeffrey Heer](https://observablehq.com/@uwdata/working-with-window-queries) `37:T6f6,agregats = { //dézippage et extraction des données valides (France métro, non nulles...), puis /*const dt0 = aq.fromCSV( await fetch_txtfile_from_zip(insee_csv_zipped, null, //extrait le 1er fichier trouvé dans le zip {proxy: true}), //utilise un proxy pour ouvrir l'accès CORS {delimiter: ";"} ) */ //const dt0 = ( await aq.loadCSV(insee_csv_url) ) const dt0 = ( aq.fromCSV(await FileAttachment('retro11.csv').text(), {delimiter:';'}) ) .filter(d => d.LNCONJ == "TOTAL" && d.CHAMP =='FM' // France métropolitaine seulement (série depuis 1946) && d.NBMAR !== 'so' // éliminer les valeurs manquantes, sans objet && d.NBMAR !== null) const dt = dt0 .groupby('ANNEE_1946_2018','MOIS') .rollup({NBMAR: op.sum('NBMAR')}) //agrégation sur tous les types de mariage : HF, HH et FF const dt1 = dt.filter(d => d.MOIS == 'AN') // extraction du total annuel .select({'ANNEE_1946_2018': 'AN', 'NBMAR': 'TOT'}) //renommage de variables .reify() // **** const dt2 = dt.filter(d => d.MOIS != 'AN') // extraction des données mensuelles .select({'ANNEE_1946_2018': 'AN'}, 1, 2) const dt3 = dt2.join_left(dt1) //***jointure pour calculer le % dans le total annuel .derive({ date: d => op.utcdatetime(d.AN, d.MOIS, 0), PCT : d => 100 * d.NBMAR / d.TOT}) .relocate('PCT', {after: 3}) .orderby(0, 1) return {total_annuel: dt1, detail_mensuel: dt3, detail_mensuel_typmar: dt0} }38:T547,xAxis = g => g .attr("font-family", "sans-serif") .attr("font-size", 10) .call(g => g.selectAll("g") .data(x.ticks().slice(0,12) .map(d => new Date(Date.UTC(2000, d, 0)))) .join("g") .each((d, i) => d.id = DOM.uid("month")) .call(g => g.append("path") .attr("stroke", "#000") .attr("stroke-opacity", 0.1) .attr("d", d => ` M${d3.pointRadial(x(d.getMonth()-1), innerRadius)} L${d3.pointRadial(x(d.getMonth()-1), outerRadius)} `)) .call(g => g.append("path") .attr("id", d => d.id.id) .datum(d => [d, d3.utcMonth.offset(d, 1)]) .attr("fill", "none") .attr("d", ([a, b]) => ` M${d3.pointRadial(x(a.getMonth()-1), 0.98*outerRadius)} A${0.98*outerRadius},${0.98*outerRadius} 0,0,1 ${d3.pointRadial(x(b.getMonth()), 0.98*outerRadius)} `)) .call(g => g.append("text") .append("textPath") .attr("startOffset", 6 + 165 * rwidth/700 ) .style('font-size','1.2em') .style('font-weight','bold') .attr("xlink:href", d => d.id.href) .attr('text-anchor', "middle") .text(d => titleCase(d.toLocaleString("fr", {month: "long"}))) ) ) 39:[{"id":"f166fa6c4623d854dd32dc89486455592f20d4cd11986984b057f7848abf7ba0df22b1684f1bef288d488e13cefbee0d77c2a25779cf6d3cf4cad4f6ba554178","href":"https://static.observableusercontent.com/files/f166fa6c4623d854dd32dc89486455592f20d4cd11986984b057f7848abf7ba0df22b1684f1bef288d488e13cefbee0d77c2a25779cf6d3cf4cad4f6ba554178","name":"retro11.csv","type":"text/csv","lastModified":1621261995216.991,"size":418416}] 2f:{"title":"La saisonnalité des mariages en France","cells":[{"id":0,"value":"md`# La saisonnalité des mariages en France\nCe [dataflow](https://www.icem7.fr/open-data-flow/open-data-flows-sur-le-web-cest-fou-ce-quun-navigateur-moderne-sait-faire-1-2/) va directement charger un fichier CSV de données historiques (depuis **1946**) sur le [site de l'Insee](https://www.insee.fr/fr/statistiques/4273668?sommaire=4273674) (tableau RETRO11), avec des séries mensuelles exhaustives pour la France métropolitaine. L'Insee propose des séries plus anciennes encore, mais sur un champ géographique plus réduit et variable dans le temps.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1598,"value":"md `## Stabilisation autour de 230 000 mariages par an\n\nEn valeurs absolues, l'immédiat après-guerre connait une « Libération » des mariages. Mais cette exubérance ne dure pas, 1950 marque un retour aux niveaux d'avant-guerre (300 000). La croissance progressive de la population en âge de se marier entraîne toutefois une nette remontée, avec **un sommet culminant en 1972 à plus de 400 000**. \n\nMalgré les effets encore durables du baby-boom, on va désormais **se marier plus tard et surtout de moins en moins**, en France, comme dans la plupart des pays occidentaux à la même époque. La nuptialité **se stabilisera dans les années 2010** autour de **230 000 mariages par an**.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":756,"value":"evol_mar = {\n vl.vega.timeFormatLocale(locale);\n vl.vega.formatLocale(locale);\n\n const vlc = await vl.markBar()\n .data(agregats.total_annuel.objects())\n .encode(\n vl.x().fieldO('AN').axis({labelAngle: 0, labelOverlap: true}).title(null),\n vl.y().fieldQ('TOT').title(null),\n vl.color().value('#1e9b9e '),\n vl.tooltip({format:',.0f'}).fieldQ('TOT')\n )\n .title({\n text: ['Évolution du nb. total de mariages','France métropolitaine'],\n anchor: 'start', frame: 'group'\n })\n .width(cwidth - 70)\n .render({renderer: 'svg'})\n \n let svg = vlc.querySelector('svg'); //fix temp export SVG Vega\n svg.removeAttribute(\"xmlns\");\n svg.removeAttribute(\"xmlns:xlink\") ;\n return vlc ;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":791,"value":"buttons2 = html`\n${DOM.download(new Blob([d3.csvFormat(agregats.total_annuel.objects())], {type: \"text/csv\"}), \"data.csv\", \"Export CSV des données\")}\n${DOM.download(await serialize(evol_mar), \"opendata\", \"Export SVG\")}\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1972,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":388,"value":"viewof numvar = radio({\n //title: 'Variable représentée (par mois)',\n description: null,\n options: [\n { label: \"% de mariages / total annuel\", value: 'PCT' },\n { label: 'Nb. de mariages', value: 'NBMAR' }\n ],\n value: 'PCT'\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":23,"value":"viewof date = {\n await visibility();\n numvar ;\n liss_radial ; \n return Scrubber(\n d3.utcMonth.range(d3.utcMonth.offset(data_radial[0].date,-1),\n d3.utcMonth.offset(data_radial[data_radial.length-2].date)), \n {format: date => titleCase(date.toLocaleString(\"fr\", {month: \"numeric\", year:'numeric'})), \n loop: false, autoplay: true, delay: 0, width:600}\n )\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":580,"value":"leg_radial = {\n const scale = d3.scaleSequential(d3.interpolateBrBG); \n const interpolator = scale.interpolator(); \n const mirror = t => interpolator(1 - t); \n scale.interpolator(mirror); \n\n return legend({\n color: scale.domain([annees[0], annees[annees.length - 1]]),\n title: \"Années\",\n ticks: 8,\n tickFormat:\".4\"\n })\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":108,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":1950,"value":"viewof liss_radial = {\n return checkbox({\n //description: \"Just a single checkbox to toggle\",\n options: [{ value: \"on\", label: \"Lisser l'année en cours...\" }],\n value: \"on\"\n})\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1780,"value":"bt0 = {\n if (!fin_anim ) {\n yield html`${DOM.download(new Blob([d3.csvFormat(data_radial)], {type: \"text/csv\"}), \"data.csv\", \"Export CSV\")}`\n } \n else {\n yield html`\n${DOM.download(new Blob([d3.csvFormat(data_radial)], {type: \"text/csv\"}), \"data.csv\", \"Export CSV\")}\n${DOM.download(await rasterize(radial_chart), \"opendata\", \"Export PNG\")}\n${DOM.download(await serialize(radial_chart), \"opendata\", \"Export SVG\")}`}\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":2471,"value":"md `Le graphique ci-dessus présente en premier lieu une répartition en pourcentage. Le cercle en pointillé pose le niveau théorique en l'absence de fluctuations saisonnières (100 % / 12). La variante en valeurs absolues montre bien **les différentes phases d'expansion / contraction**. \n\nLa courbe en orange représente la distribution de l'année courante de l'animation. Les traces vertes/jaunes figurent les années antérieures.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1998,"value":"md `## Juin et juillet se détachent, avril et mai reviennent dans la norme\n\nPour préciser le destin différencié des différents mois de l'année, le traitement ci-après figure l'évolution **brute et lissée** des mariages, par tranche mensuelle. \n\nLe lissage est d'autant plus intéressant que le nombre variable de week-ends dans un mois donné va provoquer des **irrégularités cycliques**. Un mois qui comprend, une année donnée, 5 week-ends au lieu de 4, recueillera mécaniquement plus de mariages.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":866,"value":"viewof curmois = select({\n title : \"Mois du mariage\",\n //description: 'mois',\n options: mois,\n value: 6\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":839,"value":"$33","pinned":false,"hidden":false,"mode":"ojs"},{"id":924,"value":"buttons3 = html`\n${DOM.download(new Blob([d3.csvFormat(data_extrait_mensuel.objects())], {type: \"text/csv\"}), \"data.csv\", \"Export CSV des données\")}\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1235,"value":"md `### Palmarès annuel\n\nEn coupe annuelle, les deux graphiques suivants montrent bien le recul d'avril, qui s'aligne en fin de période sur octobre, la montée de mai, qui n'est plus interdit, et globalement une dispersion plus importante.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":2636,"value":"$34","pinned":false,"hidden":false,"mode":"ojs"},{"id":1157,"value":"viewof an = {\n \n let s = Scrubber(d3.range(1946,2019), \n {loop: false, autoplay: false, delay: 50, initial:2018}\n )\n s.b.style.display = 'none'\n return s ; \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1266,"value":"{\n vl.vega.timeFormatLocale(locale);\n vl.vega.formatLocale(locale);\n\n return vl.markBar()\n .data( agregats.detail_mensuel.params({an}).filter(d => d.AN == an) )\n .transform(\n vl.calculate('~~(( datum.MOIS + 1 == 13 ? 0 : datum.MOIS) / 3)').as('TRIM')\n )\n .encode(\n vl.x().fieldN('MOIS').sort('MOIS')\n .axis({labelAngle: 0, grid: false, tickColor: \"#fff\", title: null, bandPosition: 1, labelPadding: -1,\n labelExpr:width < 600 ? \"monthAbbrevFormat(datum.label-1)\": \"monthFormat(datum.label-1)\"}),\n vl.y().fieldQ('PCT').axis({grid: true}).scale({domainMax: max_pct}).title(null),\n vl.color().fieldN('TRIM').scale({range:color_trims}).legend(null) ,\n vl.tooltip().fieldQ('PCT').format(\".3\")\n ) \n .title({\n text: ['Distribution mensuelle des mariages (' + an + ')', 'en % du total annuel - France métropolitaine'],\n anchor: 'start'\n })\n .width(cwidth - 30)\n .render({renderer: 'svg'})\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1246,"value":"buttons4 = html`\n${DOM.download(new Blob([d3.csvFormat(data_radial)], {type: \"text/csv\"}), \"data.csv\", \"Export CSV des données\")}\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1591,"value":"md `## Les mariés de même sexe sont plus ouverts à toutes les saisons\n\nLe fichier de l'Insee détaille les mariages selon leur type, depuis la légalisation du mariage pour tous en 2013.\n\nComme l'Insee le relevait déjà dès 2014, **la saisonnalité apparait moins marquée** pour les mariages entre personnes de même sexe.`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1475,"value":"$35","pinned":false,"hidden":false,"mode":"ojs"},{"id":1680,"value":"buttons5 = html`\n${DOM.download(new Blob([d3.csvFormat(data_typmar.objects())], {type: \"text/csv\"}), \"data.csv\", \"Export CSV des données\")}\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":743,"value":"$36","pinned":false,"hidden":false,"mode":"ojs"},{"id":738,"value":"md `## Annexe : fonctions et paramètres\n\n### Tables de données`","pinned":false,"hidden":false,"mode":"ojs"},{"id":2,"value":"insee_csv_zipped = \"https://www.insee.fr/fr/statistiques/fichier/4273668/RETRO11.zip\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":2263,"value":"md `Lecture du zip et constitution des tables de données dérivées avec Arquero :`","pinned":false,"hidden":false,"mode":"ojs"},{"id":353,"value":"$37","pinned":true,"hidden":false,"mode":"ojs"},{"id":2260,"value":"md `Aperçu de la table de données la plus détaillée :`","pinned":false,"hidden":false,"mode":"ojs"},{"id":2257,"value":"agregats.detail_mensuel_typmar.view()","pinned":false,"hidden":false,"mode":"ojs"},{"id":2199,"value":"data_radial = agregats.detail_mensuel.objects() ;","pinned":false,"hidden":false,"mode":"ojs"},{"id":830,"value":"data_extrait_mensuel = agregats.detail_mensuel.params({curmois}).filter(d => d.MOIS == +curmois)\n .orderby('AN')\n .derive({ ravg: aq.rolling(d => op.average(d.PCT), [-3, 3]) })","pinned":false,"hidden":false,"mode":"ojs"},{"id":2153,"value":"data_typmar = {\n const t0 = agregats.detail_mensuel_typmar.filter(d => d.ANNEE_1946_2018 >= 2013)\n const t1 = t0\n .filter(d => d.MOIS == 'AN')\n .select('ANNEE_1946_2018', 'TYPMAR2', {NBMAR: 'TOT'}).reify() // ***\n .join_right(t0.filter(d => d.MOIS != 'AN').select(aq.not('CHAMP','LNCONJ')))\n .derive({TYPMAR3: d => d.TYPMAR2 == 'HF' ? '1' : '2'})\n .groupby('MOIS','TYPMAR3')\n .rollup({NBMAR: op.sum('NBMAR'), TOT: op.sum('TOT')})\n .derive({PCT: d => 100 * d.NBMAR/ d.TOT})\n return t1 \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":969,"value":"data_bars = {\n const data = agregats.detail_mensuel.derive({name: d => d.MOIS, value: d => d.PCT}) ;\n let t = data.orderby(0, aq.desc('PCT')).groupby('AN')\n .derive({rank: d => op.rank()}) ;\n\n return d3.groups(t.objects(), d => d.AN) \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1931,"value":"max_pct = Math.ceil( agregats.detail_mensuel.rollup({maxpct: op.max('PCT')}).get('maxpct', 0) )","pinned":false,"hidden":false,"mode":"ojs"},{"id":482,"value":"annees = agregats.detail_mensuel.groupby('AN').count().columnAt(0).data.map(Number)","pinned":false,"hidden":false,"mode":"ojs"},{"id":860,"value":"mois = x.ticks().slice(0,12).map(d => new Date(Date.UTC(2000, d + 1, 28)))\n .map((d,i) => {return {value : (i+1), \n m: (\"0\" + (d.getMonth() + 1)).slice(-2),\n label: titleCase(d.toLocaleString(getBrowserLocale(), {month: \"long\"})),\n label_s: titleCase(d.toLocaleString(getBrowserLocale(), {month: \"short\"}))} \n })","pinned":false,"hidden":false,"mode":"ojs"},{"id":2771,"value":"color_trims = ['#a2c6c8', '#cdd975', '#f6c580', '#eca7be']","pinned":false,"hidden":false,"mode":"ojs"},{"id":2225,"value":"md `### Graphique radial`","pinned":false,"hidden":false,"mode":"ojs"},{"id":119,"value":"radial_chart.update(date)","pinned":false,"hidden":false,"mode":"ojs"},{"id":191,"value":"$38","pinned":false,"hidden":false,"mode":"ojs"},{"id":197,"value":"yAxis = g => g\n .attr(\"text-anchor\", \"middle\")\n .attr(\"font-family\", \"sans-serif\")\n .attr(\"font-size\", 10)\n .call(g => g.selectAll(\"g\")\n .data(y.ticks(4).reverse())\n .join(\"g\")\n .attr(\"fill\", \"none\")\n .call(g => g.append(\"circle\")\n .attr(\"stroke\", \"#000\")\n .attr(\"stroke-opacity\", 0.1)\n .attr(\"r\", y))\n .call(g => g.append(\"text\")\n .attr(\"y\", d => -y(d))\n .attr(\"dy\", \"0.35em\")\n .attr(\"stroke\", \"#fff\")\n .attr(\"stroke-width\", 5)\n .text((x, i) => `${x.toLocaleString()}${(i==0 && numvar == 'PCT') ? \" %\" : \" \"}`)\n .clone(true)\n .attr(\"y\", d => y(d))\n .selectAll(function() { return [this, this.previousSibling]; })\n .clone(true)\n .attr(\"fill\", \"currentColor\")\n .attr(\"stroke\", \"none\")))","pinned":false,"hidden":false,"mode":"ojs"},{"id":92,"value":"x = d3.scaleLinear()\n .domain([d3.min(data_radial, d => d.date.getMonth()-1), d3.max(data_radial, d => d.date.getMonth() + 0)])\n .range([0, 2 * Math.PI])","pinned":false,"hidden":false,"mode":"ojs"},{"id":96,"value":"y = d3.scaleLinear()\n .domain([0, d3.max(data_radial, d => d[numvar])]).nice() \n .range([innerRadius, outerRadius])","pinned":false,"hidden":false,"mode":"ojs"},{"id":1755,"value":"fin_anim = date.getYear() + 1900 == data_radial[data_radial.length-1].AN && date.getMonth() == data_radial[data_radial.length-1].MOIS - 1","pinned":false,"hidden":false,"mode":"ojs"},{"id":1425,"value":"rwidth = Math.min(width, 550) ;","pinned":false,"hidden":false,"mode":"ojs"},{"id":183,"value":"innerRadius = 0 //width / 5","pinned":false,"hidden":false,"mode":"ojs"},{"id":186,"value":"outerRadius = rwidth / 2 - margin","pinned":false,"hidden":false,"mode":"ojs"},{"id":542,"value":"radial_colorscale = d3.scaleSequential([annees[annees.length-1], annees[0]], d3.interpolateBrBG)","pinned":false,"hidden":false,"mode":"ojs"},{"id":106,"value":"bisectDate = d3.bisector(d => d.date).left","pinned":false,"hidden":false,"mode":"ojs"},{"id":1123,"value":"//formatNumber = d3.format(\".3\")\nformatNumber = d => (Math.round(10*d)/10).toLocaleString() + \" %\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":1674,"value":"md `### Fonctions et paramètres divers`","pinned":false,"hidden":false,"mode":"ojs"},{"id":844,"value":"frame = [-3, 3]","pinned":false,"hidden":false,"mode":"ojs"},{"id":1725,"value":"cwidth = Math.min(width, 700) ;","pinned":false,"hidden":false,"mode":"ojs"},{"id":104,"value":"line = d3.lineRadial()\n //.curve(d3.curveLinear)\n .angle(d => x(d.date.getMonth()))","pinned":false,"hidden":false,"mode":"ojs"},{"id":260,"value":"margin = 10","pinned":false,"hidden":false,"mode":"ojs"},{"id":97,"value":"height = width","pinned":false,"hidden":false,"mode":"ojs"},{"id":2047,"value":"style = html`

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":5,"value":"import {timeIt, aq, op, fetch_txtfile_from_zip, getBrowserLocale, locale, titleCase } from '@ericmauviere/arquero-table-utils'","pinned":false,"hidden":false,"mode":"ojs"},{"id":57,"value":"d3 = require(\"d3@6\", \"d3-array@2\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":24,"value":"import {Scrubber} from \"@mbostock/scrubber\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":390,"value":"import {radio, select, checkbox} from \"@jashkenas/inputs\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":581,"value":"import {legend} from \"@d3/color-legend\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":757,"value":"import { vl } from '@vega/vega-lite-api'","pinned":false,"hidden":false,"mode":"ojs"},{"id":1738,"value":"import {rasterize, serialize} from \"@mbostock/saving-svg\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":2997,"value":"endpoint = `@ericmauviere/stockage-cdn-proxy-du-fichier-insee-des-mariages`","pinned":false,"hidden":false,"mode":"ojs"},{"id":2998,"value":"insee_csv_url = `https://endpointservice.web.app/notebooks/${endpoint}/deploys/insee_mariages_1946.csv`","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W39","stdlib":"1","titling":"auto"}