Communes, Chômage (2007-) - COMM_UNR

Data - INSEE

Auteur

François Geerolf

Date

Code 
COMM_UNR %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Chômage - Hauts de Seine

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT == "92") %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + 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 = percent_format(a = 1))

Chômage - Seine Saint-Denis

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT == "93") %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + 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 = percent_format(a = 1))

Chômage - Val de Marne

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT == "94") %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + 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 = percent_format(a = 1))

Chômage - Yvelines

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT == "78") %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + geom_polygon()  +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_COM), size = 2) +
  scale_fill_viridis_c(na.value = "white",
                       labels = percent_format(a = 1))

Chômage - Essone

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT == "91") %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + geom_polygon()  +
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_COM), size = 2) +
  scale_fill_viridis_c(na.value = "white",
                       labels = percent_format(a = 1))

Chômage - Petite Couronne

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT %in% c("92", "93", "94")) %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + geom_polygon()  + 
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white",
                       breaks = 0.01*seq(0, 10, 1),
                       labels = percent_format(a = 1))

Chômage - Paris

Code 
COMM_UNR %>%
  filter(date == as.Date("2007-01-01")) %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  mutate(value = value / POPULATION) %>%
  left_join(communes, by = "INSEE_COM") %>%
  filter(CODE_DEPT %in% c("75")) %>%
  ggplot(.) + aes(long, lat, group = group, fill = value) + coord_equal() + 
  theme_void() + labs(fill = "Taux de chômage") + geom_polygon()  + 
  geom_polygon(colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white",
                       breaks = 0.01*seq(0, 10, 1),
                       labels = percent_format(a = 1))