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
Les jardins passagers — Etablissement Public du Parc et de la Grande Halle de La Villette 19 Etat
Le jardin de la félicité face au 20 rue de la Sainte Félicité Les amis du jardin de la félicité 15 DJS
Jardin des Apprentis-Sages 15 bis rue Jules Romains Centre socio-culturel de Belleville 19 Bailleurs Lebaudy et Batigère (non considéré comme bailleur social)
Jardin Partagé des Olympiades Dalle des Olympiades Association Jardin Partagé Olympiades 13 Paris Habitat
Jardin partagé de la Poterne des Peupliers Centre d’animation de La Poterne des Peupliers 1 rue Gouthière Ligue de l'Enseignement 13 DJS
Jardin Luquet Square Alexandre Luquet Impasse Piat Archipelia 20 DEVE
Ecobox 10 impasse de la Chapelle Eco Box 18 DVD
Le Lapin Ouvrier Jardin Françoise-Héritier place de la Garenne Le Lapin Ouvrier 14 DEVE

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 02 novembre 2026
Observations 189 jardins (179 actifs)