Communes - france2016

Data - INSEE

Author

François Geerolf

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 = "€"))