Charger les principaux packages

library(tidyverse)
library(ggspatial)
library(ggthemes)

Télécharger les données

Ces données ont été publiées par le Ministère de l’Intérieur, et sont librement téléchargeables sur le site data.gouv.fr .

cameras_paris_path = here::here("data", "cameras-paris.kml")

cameras_paris_url = "https://www.data.gouv.fr/fr/datasets/r/73b97c76-0f79-451b-9576-ccc61af7dfcf"

download.file(url = cameras_paris_url, destfile = cameras_paris_path)

Les lire

cameras_paris = sf::st_read(cameras_paris_path, quiet = T) |> 
  janitor::clean_names() |> 
  mutate(mise_en_se = lubridate::dmy(mise_en_se))

Vérification

max(cameras_paris$mise_en_se, na.rm = T)

[1] "2018-11-13"

La camera la plus récente du jeu de données a été mise en service en novembre 2018. Au printemps 2020, il y en avait certainement beaucoup plus.

Les visualiser

cameras_paris |> 
  ggplot() +
  geom_sf(size = 1, alpha = 0.7) +
  ggspatial::annotation_north_arrow(style = ggspatial::north_arrow_nautical()) +
  labs(title = "Une partie des caméras de surveillance actives à Paris au printemps 2020",
       subtitle = "Il y en a partout, sauf dans les parcs. Actuellement on en compte beaucoup plus.",
       caption = "Données : Ministère de l'Intérieur (dernière mise à jour en novembre 2018)") +
  ggthemes::theme_map(base_family = "Courier") +
  theme(plot.title = element_text(face = "bold"))

Citation

BibTeX

@online{boulakia2023,
  author = {Boulakia, Théo and Mariot, Nicolas},
  title = {Parisiens, ouvrez l’oeil\,!},
  date = {2023-06-25},
  url = {https://l-attestation.github.io/exercices/cameras-paris/},
  langid = {fr}
}

Veuillez citer ce travail comme suit :

Boulakia, Théo, and Nicolas Mariot. 2023. “Parisiens, ouvrez l’oeil !” June 25, 2023. https://l-attestation.github.io/exercices/cameras-paris/.