Référendum de 2005 - referendum_2005

Data - Insee - Elections

Hauts de Seine

referendum_2005 |>
  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)  +
  scale_fill_viridis_c(na.value = "white",
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))

1ère couronne

referendum_2005 |>
  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",
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))

2ème couronne

referendum_2005 |>
  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",
                       name = "Oui",
                       labels = scales::percent_format(accuracy = 1))