Activité

Laboratoire - Gravité des accidents par mois

Comment les accidents déclarés se répartissent-ils selon leur gravité?

30-45 minutes · Intermédiaire

À produire : Un tableau et un diagramme des effectifs et proportions par gravité pour les rapports d’accidents de 2022.

Prérequis : Savoir ouvrir un projet RStudio et exécuter un script R. Reconnaître une variable, un décompte et une proportion.

Préparation enseignante

Télécharger la trousse ci-dessous. Extraire le ZIP, puis double-cliquer sur Donnees-bleues.Rproj. Avant la séance, ouvrir installer-packages.R et cliquer sur Source avec une connexion Internet.

Une fois les packages installés, les scripts utilisent les fichiers inclus et peuvent être exécutés hors ligne.

Télécharger la trousse avec les données

121 Ko. Préparation : 03/10/2026 à 09:51 (heure du Québec).

Les fichiers de données sont inclus dans la trousse.

Conditions de la source · Provenance et empreinte du ZIP

Fichiers inclus
  • rapports_accident_2022_prepares.csv : 108 186 lignes, 6 colonnes.

Contexte

Cette activité utilise la fiche Rapports d’accident. Unité : Un accident routier déclaré dans les données 2022 préparées.

Source : Données Québec / Société de l’assurance automobile du Québec. Les dates de préparation, les fichiers et les conditions de réutilisation sont indiqués dans la trousse.

Consignes

  1. Ouvrir activite-courte.R dans le sous-dossier datasets/rapports-accident du projet RStudio et cliquer sur Source. Les tableaux apparaissent dans Console et les graphiques dans Plots.
  2. Calculer les nombres et les proportions de chaque gravité.
  3. Lire le diagramme en indiquant l’année et la population d’accidents couverte.
  4. Rédiger une réponse à la question en nommant l’unité observée et une limite de la source.

Limites à faire nommer

Sans dénominateur de trafic, les décomptes ne sont pas des risques. Les proportions portent sur les accidents enregistrés dans chaque groupe.

Vérifier le travail

  • L’unité, la période ou la portée documentaire et les variables utilisées sont nommées.
  • La conclusion répond à la question et explique au moins une limite précise.
Objectifs et adaptations

Adaptations

  • Débuter avec le script exécuté par la personne enseignante, puis faire interpréter une seule sortie.
  • Pour approfondir, modifier une sélection ou un regroupement et justifier ce que cela change.

Statut documenté : Documentation de source et ressources de classe fournies.

Contribution pédagogique : Aurélien Nicosia. Usage en cours non documenté.

Ajout
Mise à jour

Code complet

Ce script complet est celui de la trousse. Il lit les fichiers locaux et affiche les résultats dans RStudio.

Afficher le script R 
# Laboratoire - Gravité des accidents par mois
# Ouvrir le projet RStudio de l’archive, puis exécuter ce script.
# Source : https://www.donneesquebec.ca/recherche/dataset/rapports-d-accident
# Les données de classe sont figées; ce script ne les télécharge pas.

library(dplyr)
library(readr)
library(ggplot2)

donnees <- read_csv("data/processed/rapports-accident/rapports_accident_2022_prepares.csv", show_col_types = FALSE)
stopifnot(nrow(donnees) > 0)

resume <- donnees |> count(gravite, sort = TRUE) |> mutate(proportion = n / sum(n))
print(resume)
print(ggplot(resume, aes(x = reorder(gravite, n), y = n)) + geom_col() + coord_flip() +
  labs(x = "Gravité déclarée", y = "Accidents en 2022 (nombre)", subtitle = "Sans dénominateur de trafic, ces nombres ne sont pas des risques"))