Communes - france2016

Données - INSEE

Auteur

François Geerolf

Info

Last data update: 02 aoû 2026, 11:04. Last compile: 18 aoû 2026, 00:52

Liste des Communes

Code 
france2016 |>
  filter(ACTUAL == 1) |>
  select(5, 6, 7, 10, 16) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Revenu médian - Hauts de Seine

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "MED15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT == "92") |>
  ggplot() + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Revenu médian") + geom_polygon() +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_COM), size = 3) +
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"))

Revenu médian - Seine Saint-Denis

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "MED15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT == "93") |>
  ggplot() + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Revenu médian") + geom_polygon() +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_COM), size = 3) +
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"))

Revenu médian - Val de Marne

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "MED15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT == "94") |>
  ggplot() + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Revenu médian") + geom_polygon() +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_COM), size = 3) +
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"))

Rapport interdécile 9e décile/1er décile - 1ère couronne

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "RD15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT %in% c("92", "93", "94")) |>
  ggplot() + aes(long, lat, group = group, fill = value) + 
  theme_void() + labs(fill = "Rapport interdécile") +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white") + coord_equal()

Revenu médian - Paris

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "MED15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT %in% c("75")) |>
  ggplot() + aes(long, lat, group = group, fill = value) + 
  theme_void() + labs(fill = "Revenu médian") + coord_equal() +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2)  + 
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"))

Revenu médian - Hauts de Seine

Code 
filosofi2015_COM |>
  rename(INSEE_COM = CODGEO) |>
  filter(variable == "MED15") |>
  left_join(communes, by = "INSEE_COM") |>
  left_join(communes_details, by = "INSEE_COM") |>
  filter(CODE_DEPT %in% c("75", "92", "93", "94")) |>
  ggplot() + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Revenu médian") + geom_polygon()  + 
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"))