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
Le jardin Saint Blaise Centre Chenal Saint-Blaise 14 rue du Clos Esperem 20 Paris Habitat
Jardin de Falbala Jardin du Moulin de la Vierge 20 rue de Gergovie le Jardin partagé de Falbala 14 DEVE
Jardin des Soupirs 18 passage des Soupirs Association du passage des Soupirs 20 DEVE
Jardin des couleurs 1 rue des Mariniers Jardins des couleurs 14 DEVE
A la bonne herbe place Marcel Achard "association Belle Ville ABV"(Centre socioculturel Belleville) 19 DEVE
La Note Bleue Square Frédéric Rossif 175 rue de Charenton Graine de partage(en partenariat avec La Note bleue ) 12 DEVE
Le jardin de la gare de Reuilly Maison des associations du 12e 181 avenue Daumesnil Urbanescence 12 DEVE
Jardin partagé Rosiers Joseph Migneret 10 rue des Rosiers Les Jardiniers du 4ème 4 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 20 septembre 2026
Observations 189 jardins (179 actifs)