Référendum de 1992 - referendum_1992

Data - France

~/data/france/elections/

Hauts de Seine

referendum_1992 %>%
  group_by(INSEE_COM) %>%
  summarise(value = value[variable == "oui"] / sum(value)) %>%
  left_join(communes, by = "INSEE_COM") %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  filter(CODE_DEPT %in% c("92")) %>%
  ggplot(.) + aes(long, lat, group = group) + theme_void() + coord_equal() +
  geom_polygon(aes(fill = value), 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",
                       breaks = 0.01*seq(0, 90, 5),
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))

1ère couronne

referendum_1992 %>%
  group_by(INSEE_COM) %>%
  summarise(value = value[variable == "oui"] / sum(value)) %>%
  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) + theme_void() + coord_equal() +
  geom_polygon(aes(fill = value), colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white",
                       breaks = 0.01*seq(0, 90, 5),
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))

2ème couronne

referendum_1992 %>%
  group_by(INSEE_COM) %>%
  summarise(value = value[variable == "oui"] / sum(value)) %>%
  left_join(communes, by = "INSEE_COM") %>%
  left_join(communes_details, by = "INSEE_COM") %>%
  filter(CODE_DEPT %in% c("77", "78", "91", "95")) %>%
  ggplot(.) + aes(long, lat, group = group) + theme_void() + coord_equal() +
  geom_polygon(aes(fill = value), colour = alpha("black", 1/2), size = 0.2) +
  scale_fill_viridis_c(na.value = "white",
                       breaks = 0.01*seq(0, 90, 10),
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))