Jardins partagés

Données - Ville de Paris

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("jardins-partages.qmd")'

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

jp_path <- here::here("data", "paris", "jardins-partages.parquet")
jp <- arrow::read_parquet(jp_path) |>
  dplyr::mutate(
    ar     = suppressWarnings(as.integer(stringr::str_extract(arrondissement, "[0-9]+"))),
    ferme  = !is.na(date_fermeture)
  )

n_tot   <- nrow(jp)
n_actif <- sum(!jp$ferme)
arr_sf  <- arrondissements_sf()
pts_sf  <- jp |>
  dplyr::filter(!ferme) |>
  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())

189 jardins partagés recensés, cultivés par des associations d’habitants, dont 179 toujours en activité (10 ont fermé).

Code
jp |>
  dplyr::filter(!ferme) |>
  dplyr::transmute(Nom = nom_ev, Adresse = adresse, `Gestionnaire` = nom_gerant,
                   Arrondissement = ar, `Propriétaire` = proprietaire_terrain) |>
  dplyr::slice_sample(n = 8) |>
  gt::gt() |>
  gt::sub_missing(missing_text = "—") |>
  gt::tab_header(title = "8 jardins tirés au hasard") |>
  gt::tab_options(table.width = "100%")
8 jardins tirés au hasard
Nom Adresse Gestionnaire Arrondissement Propriétaire
Jardin des Tourelles 18 passage des tourelles Jardin des Tourelles 20 Paris Habitat
Le jardin partagé Python Duvernois 39 rue Joseph Pyton Tous Ensemble 20 DEVE
Les jardins de la douve Jardin Anna Marly 25 avenue de la porte de Vanves Les jardins de la douve 14 DEVE
Le Jardin d'Abel Square René Le Gall 5 rue Emile Deslandres Le Jardin d'Abel 13 DEVE
Centre de la Terre Square Jules Verne 19 bis rue de l'Orillon Chemins Verts 11 DEVE
— square de la rue Rene Binet — 18 —
Les Petits Passages 33 rue Petit J2P: Jaurès Pantin Petit 19 DEVE
Jardin Saint Serge Eglise St Serge 93 rue de Crimée Jardin Saint Serge 19 Institut de Théologie Orthodoxe Saint Serge

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 = 5, stroke = FALSE, fillOpacity = 0.85, fillColor = "#2f6f4f",
    label = ~nom_ev,
    popup = ~sprintf("<b>%s</b><br>%s<br>Gestionnaire : %s<br>Propriétaire du terrain : %s",
                     nom_ev, adresse, nom_gerant, proprietaire_terrain)
  )

Par propriétaire du terrain

Code
jp |>
  dplyr::filter(!ferme) |>
  dplyr::count(proprietaire_terrain, sort = TRUE) |>
  dplyr::mutate(proprietaire_terrain = forcats::fct_reorder(proprietaire_terrain, n)) |>
  ggplot(aes(n, proprietaire_terrain)) +
  geom_col(fill = "#2f6f4f", width = 0.6) +
  geom_text(aes(label = n), hjust = -0.3, size = 3) +
  scale_x_continuous(expand = expansion(mult = c(0, 0.12))) +
  labs(title = "Propriétaire du terrain",
       subtitle = "Le plus souvent la Ville de Paris (DEVE) elle-même",
       x = NULL, y = NULL) +
  theme_barres

Source & données

Code
tibble::tibble(
  ` ` = c("Jeu de données", "Producteur", "Licence", "Fichier", "Mise à jour", "Observations"),
  `  ` = c(
    "[Jardins partagés](https://opendata.paris.fr/explore/dataset/jardins-partages/information/)",
    "Direction des Espaces Verts et de l'Environnement (DEVE) — Ville de Paris",
    "Open Database License (ODbL)",
    sprintf("`data/paris/jardins-partages.parquet` (%s ko) + `arrondissements.parquet`",
            round(file.size(jp_path) / 1024)),
    format(as.Date(file.mtime(jp_path)), "%d %B %Y"),
    sprintf("%d jardins (%d actifs)", n_tot, n_actif)
  )
) |>
  gt::gt() |> gt::fmt_markdown(columns = `  `) |>
  gt::tab_options(table.width = "100%", column_labels.hidden = TRUE)
Jeu de données Jardins partagés
Producteur Direction des Espaces Verts et de l’Environnement (DEVE) — Ville de Paris
Licence Open Database License (ODbL)
Fichier data/paris/jardins-partages.parquet (23 ko) + arrondissements.parquet
Mise à jour 15 octobre 2026
Observations 189 jardins (179 actifs)