Dispositif Fichier localisé social et fiscal (Filosofi 2015) - filosofi2015

Data - INSEE

Code
load_data("insee/filosofi2015_var.RData")
load_data("insee/filosofi2015_COM.RData")
load_data("insee/filosofi2015_DEP.RData")
load_data("maps/france.RData")
load_data("maps/communes.RData")
load_data("maps/communes_details.RData")

Variables

Code
filosofi2015_var %>%
  select(1, 2) %>%
  {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) +
  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 = "€"))

Carte en 2015

Code
filosofi2015_DEP %>%
  filter(variable == "MED15") %>%
  rename(depts_code = CODGEO) %>%
  select(depts_code, value) %>%
  right_join(france, by = "depts_code") %>%
  ggplot(aes(long, lat, group = group, fill = value)) +
  geom_polygon() + coord_map() +
  scale_fill_viridis_c(na.value = "white",
                       labels = dollar_format(a = 1, p = "", su = "€"),
                       name = "Revenu médian") +
  labs(x = "", y = "") + 
  theme_minimal() + theme(axis.text.x = element_blank(),
                          axis.text.y = element_blank())

Paris et Petite Couronne

Code
filosofi2015_DEP %>%
  filter(variable == "MED15",
         CODGEO %in% c("75", "92", "93", "94")) %>%
  rename(depts_code = CODGEO) %>%
  select(depts_code, value) %>%
  left_join(france, by = "depts_code") %>%
  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",
                       labels = dollar_format(a = 1, p = "", su = "€"),
                       name = "Revenu médian") + 
  labs(x = "", y = "") + 
  coord_equal()

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