Banque de prénoms

Introduction

Projet personnel du week-end par Igor Souza;
La préparation des données a été réalisée avec R, la présentation avec Quarto, et les graphiques avec Observable JS.

Banque de prénoms¹

Liste des prénoms féminins [et masculins] des enfants admissibles aux prestations familiales depuis 1980, incluant les bébés naissants vivant au Québec ou ayant immigrés au Québec.²

Les données

data = FileAttachment("Resources\\filles-gars_1980-2023.csv").csv({ typed: true })

Inputs.table(data, {
  rows: 20,
  columns: [
    "gender",
    "first_name",
    "N",
    "year"
  ],
  header: {
    gender: "Sexe",
    first_name: "Prénom",
    N: "Fréquence",
    year: "An"
  },
  format: {
    year: x => x.getFullYear()
  },
  sort: "year", 
  reverse: true,
  width: "auto"
})

Seuls les prénoms ayant 12 occurrences ou plus par an (au moins 1 par mois) ont été conservés dans l’ensemble de données.

yr = new Set (data.map(item => item.year.getFullYear()))
max = Math.max(...Array.from(yr))
min = Math.min(...Array.from(yr))

Les 20 prénoms les plus populaires par année et par sexe

bar_filtered = data.filter(function(temp){
  if (gender === "Les deux") { 
    return year === temp.year.getFullYear() 
  } 
  else { 
    return year === temp.year.getFullYear() && 
    gender === temp.gender 
  }
})

viewof year = Inputs.range(
  [min, max],
  {value: max, step: 1, label: "An:"}
)

viewof gender = Inputs.radio(
  ["Filles", "Garçons", "Les deux"],
  {value: "Les deux", label: "Sexe:"}
)

Plot.plot({
  x: {
    label: "Fréquence"
  },
  y: { 
    label: "Prénom"
  },
  marginLeft: 80,
  //caption: "Source: Retraite Québec. Banque de prénoms.",
  color: { 
    domain: ["Filles", "Garçons"],
    range: ["#F7ABD5", "#D2EFFB"]
  },
  marks: [
    Plot.barX(bar_filtered, {
      x: "N",
      y: "first_name",
      sort: { y: "x", reverse: true, limit: 20 },
      fill: "gender"
    }),
    
    Plot.text(bar_filtered, {
      text: (d) => `${d.N}`,
      x: "N",
      y: "first_name",
      textAnchor: "end",
      dx: -3
    })
  ]
})

Taux de croissance annuel

line_filtered = data.filter(function(temp){
  return first_name.includes(temp.first_name)
})

Plot.plot({
  x: {
    label: "An",
    domain: [new Date(min-2, 12, 31), new Date(max+2, 12, 31)],
    grid: true
  },
  y: {
    grid: true,
    label: "Pourcentage",
    labelOffset: 50,
    tickFormat: ",.1f",
    percent: true
  },
  marginLeft: 80,
  //caption: "Source: Retraite Québec. Banque de prénoms.",
  color: { 
    type: "categorical",
    scheme: "paired",
    legend: true
  },
  marks: [
    Plot.ruleY([0]),
    Plot.lineY(line_filtered, {
      x: "year", 
      y: "pct",
      stroke: "first_name",
      marker: "circle",
      sort: (d) => d.year
    }),
    Plot.text(line_filtered, {
      filter: (d) => d.pct != NaN, x: "year", y: "pct",
      text: (d) => `${Math.round(d.pct*100)}%`,
      dy: -8
    }),
  ]
})

Conclusion

MERCI!

Banque de prénoms

Introduction

Banque de prénoms1

Les données

Les 20 prénoms les plus populaires par année et par sexe

Taux de croissance annuel

Conclusion

Banque de prénoms¹