Aires piétonnes

Données - Ville de Paris

Auteur

François Geerolf

Code 
source(here::here("_rinit.R"))
source(here::here("data", "paris", "_paris.R"))   # wkb2sfc(), paris_basemap(), arrondissements_sf()
invisible(Sys.setlocale("LC_TIME", "fr_FR.UTF-8"))
# cd ~/iCloud/website/data/paris; /usr/local/bin/R -e 'quarto::quarto_render("aires-pietonnes.qmd")'

knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE,
                      fig.width = 8, fig.height = 5, dpi = 150)

ap_path <- here::here("data", "paris", "aires-pietonnes.parquet")
ap <- arrow::read_parquet(ap_path) |>
  dplyr::mutate(
    ar          = suppressWarnings(as.integer(arrondissement)),
    rue_ecoles  = rue_aux_ecoles == "Oui",
    annee_arret = as.integer(format(paru_bovp, "%Y"))
  )

n_tot   <- nrow(ap)
n_ecole <- sum(ap$rue_ecoles)
arr_sf  <- arrondissements_sf()
sh_sf   <- ap |>
  dplyr::mutate(geometry = wkb2sfc(geo_shape)) |>
  sf::st_as_sf(crs = 4326)

theme_carte <- theme_void(base_size = 12) +
  theme(plot.title = element_text(face = "bold"),
        plot.subtitle = element_text(colour = "grey35"),
        plot.margin = margin(5, 12, 5, 5))
theme_barres <- theme_minimal(base_size = 12) +
  theme(plot.title = element_text(face = "bold"),
        plot.subtitle = element_text(colour = "grey35"),
        panel.grid.major.y = element_blank())
pal_ecole <- c("TRUE" = "#c0392b", "FALSE" = "#3b6f8a")

707 aires piétonnes par arrêté municipal, dont 189 (27%) créées dans le cadre du programme « Rue aux écoles » — sécurisation, piétonnisation et végétalisation des abords d’établissements scolaires.

Code 
ap |>
  dplyr::filter(nom != "0") |>
  dplyr::arrange(dplyr::desc(paru_bovp)) |>
  dplyr::transmute(Rue = nom, Arrondissement = ar, `Rue aux écoles` = rue_aux_ecoles,
                   `Arrêté (BOVP)` = as.Date(paru_bovp)) |>
  head(8) |>
  gt::gt() |>
  gt::sub_missing(missing_text = "—") |>
  gt::tab_header(title = "8 arrêtés les plus récents") |>
  gt::tab_options(table.width = "100%")
8 arrêtés les plus récents
Rue Arrondissement Rue aux écoles Arrêté (BOVP)
Rue Marie Laurencin, rue André Derain 12 Non 2026-07-30
Place Henri Frenay et rue Roland Barthes 12 Non 2026-07-30
Rue Paul Dukas 12 Non 2026-07-30
Passage Brulon 12 Non 2026-07-30
Allée Vivaldi 12 Non 2026-07-30
Rue Louise Hervieu 12 Non 2026-07-30
Rue Blondel 2 Non 2026-07-28
Square Lamarck 18 Oui 2026-07-28

Carte

Code 
ggplot() +
  geom_sf(data = arr_sf, fill = "grey96", colour = "white") +
  geom_sf(data = sh_sf, aes(colour = rue_ecoles), linewidth = 1.1, alpha = 0.85) +
  scale_colour_manual(values = pal_ecole, labels = c("Autre aire piétonne", "Rue aux écoles"), name = NULL) +
  labs(title = "Aires piétonnes de Paris") +
  theme_carte +
  theme(legend.position = "bottom")

Par arrondissement

Code 
cnt <- ap |> dplyr::filter(!is.na(ar)) |> dplyr::count(ar, name = "n")

arr_sf |>
  dplyr::left_join(cnt, by = c("c_ar" = "ar")) |>
  ggplot() +
  geom_sf(aes(fill = n), colour = "white", linewidth = 0.2) +
  scale_fill_viridis_c(option = "rocket", direction = -1, na.value = "grey92", name = "Aires\npiétonnes") +
  labs(title = "Aires piétonnes par arrondissement") +
  theme_carte

Quand ont-elles été créées

Code 
ap |>
  dplyr::filter(!is.na(annee_arret)) |>
  dplyr::count(annee_arret, rue_ecoles) |>
  ggplot(aes(annee_arret, n, fill = rue_ecoles)) +
  geom_col(width = 0.7) +
  scale_fill_manual(values = pal_ecole, labels = c("Autre aire piétonne", "Rue aux écoles"), name = NULL) +
  scale_x_continuous(breaks = scales::breaks_width(2)) +
  labs(title = "Arrêtés de création d'aires piétonnes par an",
       subtitle = "Le programme « Rue aux écoles » (lancé en 2020) explique l'essentiel de l'accélération récente",
       x = NULL, y = NULL) +
  theme_barres +
  theme(legend.position = "bottom")

Source & données

Code 
tibble::tibble(
  ` ` = c("Jeu de données", "Producteur", "Licence", "Fichier", "Mise à jour", "Observations"),
  `  ` = c(
    "[Aires piétonnes](https://opendata.paris.fr/explore/dataset/aires-pietonnes/information/)",
    "Direction de la Voirie et des Déplacements — Ville de Paris",
    "Open Database License (ODbL)",
    sprintf("`data/paris/aires-pietonnes.parquet` (%s ko) + `arrondissements.parquet`",
            round(file.size(ap_path) / 1024)),
    format(as.Date(file.mtime(ap_path)), "%d %B %Y"),
    sprintf("%d aires piétonnes, dont %d « Rue aux écoles »", n_tot, n_ecole)
  )
) |>
  gt::gt() |> gt::fmt_markdown(columns = `  `) |>
  gt::tab_options(table.width = "100%", column_labels.hidden = TRUE)
Jeu de données Aires piétonnes
Producteur Direction de la Voirie et des Déplacements — Ville de Paris
Licence Open Database License (ODbL)
Fichier data/paris/aires-pietonnes.parquet (757 ko) + arrondissements.parquet
Mise à jour 05 septembre 2026
Observations 707 aires piétonnes, dont 189 « Rue aux écoles »