Bornes d’appel taxi

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("bornes-dappel-taxi.qmd")'

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

taxi_path <- here::here("data", "paris", "bornes-dappel-taxi.parquet")
taxi <- arrow::read_parquet(taxi_path) |>
  dplyr::mutate(ar = suppressWarnings(as.integer(substr(insee, 4, 5))))

n_tot   <- nrow(taxi)
n_places <- sum(taxi$emplacements, na.rm = TRUE)
arr_sf  <- arrondissements_sf()
pts_sf  <- taxi |>
  dplyr::mutate(geometry = wkb2sfc(geo_point_2d)) |>
  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())

Les 420 stations d’appel taxi de Paris, avec leur nombre d’emplacements — 3 017 places de stationnement pour taxis au total.

Code 
taxi |>
  dplyr::arrange(dplyr::desc(emplacements)) |>
  dplyr::transmute(Nom = nom, Adresse = adresse, Arrondissement = ar,
                   Emplacements = emplacements, Statut = statut) |>
  head(8) |>
  gt::gt() |>
  gt::sub_missing(missing_text = "—") |>
  gt::tab_header(title = "8 plus grandes stations") |>
  gt::tab_options(table.width = "100%")
8 plus grandes stations
Nom Adresse Arrondissement Emplacements Statut
Gare de Lyon SNCF 8 PLACE LOUIS ARMAND 12 103 en service
Porte Maillot 80 AVENUE DE LA GRANDE ARMÉE 17 57 en service
Saint-Martin Faubourg / Gare de l'Est 147 RUE DU FAUBOURG SAINT-MARTIN 10 25 en service
Serurier / Philarmonie 185 BOULEVARD SERURIER 19 24 en service
Champs Elysées - Rond Point 15 AVENUE DES CHAMPS ELYSEES 8 23 en service
Champs Elysées / Washington 90 AVENUE DES CHAMPS ELYSEES 8 23 en service
Hôpital Georges Pompidou 25 RUE LEBLANC 15 20 en service
Gare Montparnasse - Pasteur - Taxis Libres PARKING PASTEUR 15 20 en service

Carte

Code 
leaflet::leaflet(pts_sf, options = leaflet::leafletOptions(minZoom = 11)) |>
  paris_basemap() |>
  leaflet::addPolygons(data = arr_sf, fill = FALSE, color = "#999", weight = 1) |>
  leaflet::addCircleMarkers(
    radius = ~pmax(4, pmin(14, sqrt(emplacements) * 2)), stroke = FALSE,
    fillOpacity = 0.8, fillColor = "#f0a500",
    label = ~sprintf("%s — %s place(s)", nom, emplacements),
    popup = ~sprintf("<b>%s</b><br>%s<br>%s emplacement(s)<br>Statut : %s",
                     nom, adresse, emplacements, statut)
  )

Rayon des cercles ∝ √(nombre d’emplacements).

Par arrondissement

Code 
cnt <- taxi |> dplyr::filter(!is.na(ar)) |> dplyr::group_by(ar) |>
  dplyr::summarise(n = dplyr::n(), places = sum(emplacements, na.rm = TRUE), .groups = "drop")

arr_sf |>
  dplyr::left_join(cnt, by = c("c_ar" = "ar")) |>
  ggplot() +
  geom_sf(aes(fill = places), colour = "white", linewidth = 0.2) +
  scale_fill_viridis_c(option = "rocket", direction = -1, na.value = "grey92", name = "Places\nde taxi") +
  labs(title = "Places de stationnement taxi par arrondissement") +
  theme_carte

Source & données

Code 
tibble::tibble(
  ` ` = c("Jeu de données", "Producteur", "Licence", "Fichier", "Mise à jour", "Observations"),
  `  ` = c(
    "[Bornes d'appel taxi](https://opendata.paris.fr/explore/dataset/bornes-dappel-taxi/information/)",
    "Ville de Paris",
    "Open Database License (ODbL)",
    sprintf("`data/paris/bornes-dappel-taxi.parquet` (%s ko) + `arrondissements.parquet`",
            round(file.size(taxi_path) / 1024)),
    format(as.Date(file.mtime(taxi_path)), "%d %B %Y"),
    sprintf("%d stations, %s emplacements", n_tot, format(n_places, big.mark = " "))
  )
) |>
  gt::gt() |> gt::fmt_markdown(columns = `  `) |>
  gt::tab_options(table.width = "100%", column_labels.hidden = TRUE)
Jeu de données Bornes d’appel taxi
Producteur Ville de Paris
Licence Open Database License (ODbL)
Fichier data/paris/bornes-dappel-taxi.parquet (49 ko) + arrondissements.parquet
Mise à jour 05 septembre 2026
Observations 420 stations, 3 017 emplacements