Presidentinvaalit 2024 I kierros: ehdokkaiden kannatus kunnittain ja naapurikunnittain

Oikeusministeriön vaalien tulospalvelusta on ladattavissa ensimmäisen kierroksen tulosdatat. Alla kartta jossa kunnan väri kertoo suosituimman ehdokkaan ja siirtämällä osoittimen kunnan päälle näet kuvan ehdokkaiden kannatuksesta sekä kyseisessä kunnassa että sen naapurikunnissa.

if (!file.exists("./2024-pressa-kierros-I.RData")){
library(tidyverse)
library(leaflet)
library(htmlwidgets)
library(glue)
library(sf)

# 2024
flie <- "tpv-2024_1_ehd_maa.csv.zip"
urli <- "https://tulospalvelu.vaalit.fi/TPV-2024_1/tpv-2024_1_ehd_maa.csv.zip"
download.file(urli, flie)
unzip(zipfile = flie, exdir = "./")
# fs::dir_ls(tmpdir)
dat <- read_csv2("./tpv-2024_1_aea_maa.csv", col_names = FALSE)
dat23 <- dat %>% 
  filter(grepl("\\*", X5),
         !grepl("\\*", X3)) %>% 
    # äänimäärä ja ehdokasnumero kokonaisluvuiksi
  mutate(X3 = as.integer(X3),
         X35 = as.integer(X35),
         X38 = as.integer(X38)
         ) %>% 
  # vaalipiirit veks
  filter(!is.na(X3)) %>% 
  # Merkistöenkoodaukset
  mutate(
    X16 = iconv(x = X16, from = "Windows-1252", to = "UTF-8"),
    X17 = iconv(x = X17, from = "Windows-1252", to = "UTF-8"),
    X19 = iconv(x = X19, from = "Windows-1252", to = "UTF-8"),
    X18 = iconv(x = X18, from = "Windows-1252", to = "UTF-8"),
    ) %>% 
  select(X3,X6,X18,X19,X35) %>% #print(n = 100)
  mutate(ehdokas = paste0(X18," ", X19)) %>%  
  group_by(X3) %>% 
  mutate(osuus = round(X35 / sum(X35) * 100,1)) %>% 
  arrange(desc(osuus)) %>% 
  mutate(rank = 1:n()) %>% 
  ungroup() %>% 
  select(X3,ehdokas,X35,osuus,rank) %>% 
  left_join(geofi::municipality_key_2023 %>% select(municipality_code,municipality_name_fi), by = c("X3" = "municipality_code"))

muni <- geofi::get_municipalities()

levelit_ehdokas <- dat23 %>% 
  group_by(ehdokas) %>%  
  summarise(X35 = sum(X35)) %>%  
  arrange(desc(X35))  %>% 
  pull(ehdokas)
  
# tehdään png-kuvat labeleihin
# fs::dir_create("../../images/png_labs_vaalit2023")
kuntanimet <- unique(dat23$municipality_name_fi)
for (i in seq(kuntanimet)){
  print(paste0(i,"/",length(kuntanimet)))
  
  this_muni <- muni %>% filter(municipality_name_fi == kuntanimet[i])

  naapurikunnat <- sf::st_intersection(muni, this_muni) %>% 
    sf::st_drop_geometry() %>% 
    count(municipality_name_fi) %>% 
    pull(municipality_name_fi)
  
  naapurikunnat_shape <- muni %>% filter(municipality_name_fi %in% naapurikunnat)
  
  dat_tmp <- dat23[dat23$municipality_name_fi %in% naapurikunnat,]
  
  dat_tmp$ehdokas <- factor(dat_tmp$ehdokas, 
                            levels = levelit_ehdokas)
  levelit_kunta <- c(kuntanimet[i], naapurikunnat[!naapurikunnat %in% kuntanimet[i]]) |> rev()
  dat_tmp$municipality_name_fi <- factor(dat_tmp$municipality_name_fi, levels = levelit_kunta)
  naapurikunnat_shape$municipality_name_fi <- factor(naapurikunnat_shape$municipality_name_fi, 
                                                     levels = levelit_kunta)

p <- ggplot(data = dat_tmp,
       aes(x = osuus, y = municipality_name_fi, fill = municipality_name_fi)) + 
    geom_col() +
  geom_text(aes(x = 5, label = paste0(osuus, "%")), family = "Space Mono", size = 2.3) +
  facet_wrap(~ehdokas) +
  # hrbrthemes::scale_fill_ipsum() + #scale_fill_brewer(palette = "Set1") +
  hrbrthemes::theme_ipsum_rc(base_size = 9, grid = "XY", 
                             plot_title_size = 18, 
                             strip_text_size = 9,
                             base_family = "Space Mono") +
  theme(legend.position = "none",
        plot.margin = unit(c(1,1,1,1), "mm"), 
        legend.key.size = unit(4, "mm"),
        plot.background = element_rect(fill = "transparent", color = NA),
        panel.background = element_rect(fill = "transparent", color = NA)) +
  labs(y = NULL, x = "kannatus (%)") +
  theme(panel.spacing = unit(0.1, "mm"))

p1 <- ggplot(naapurikunnat_shape, aes(label = municipality_name_fi, fill = municipality_name_fi)) + geom_sf() + 
  geom_sf_text(family = "Space Mono", size = 2.5) +
  hrbrthemes::theme_ipsum_rc(base_size = 9, grid_col = "white", 
                             plot_title_size = 18, 

                             base_family = "Space Mono") +
  theme(axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        legend.position = "none")

pp <- patchwork::wrap_plots(p,p1, widths = c(0.55,.45)) + patchwork::plot_annotation(
  title = paste0(kuntanimet[i], " ja  naapurikunnat"), 
  subtitle = "Ehdokkaat järjestetty alueen kokonaisäänimäärän mukaan", 
  theme = hrbrthemes::theme_ipsum_rc(base_size = 9, grid_col = "white", 
                             plot_title_size = 18, 
                             base_family = "Space Mono"))


# p
ggsave(filename = glue("./png_labs/{kuntanimet[i]}.png"),plot = pp, width = 8, height = 6, dpi = 100)
}
kunnat <- geofi::get_municipalities(year = 2022) %>% mutate(vuosi = 2023)

dat_kartta <- left_join(muni, dat23)

save.image(file = "./2024-pressa-kierros-I.RData")
}

library(tidyverse)
library(leaflet)
library(htmlwidgets)
library(glue)
library(sf)

load(file = "2024-pressa-kierros-I.RData")

dat_alue <- dat_kartta %>%   
  # lasketaan kuntakohtaiset summat
  group_by(municipality_code) %>% 
  filter(osuus == max(osuus, na.rm = TRUE)) %>%
  ungroup() %>% 
  select(municipality_code,municipality_name_fi,ehdokas,osuus,X35,rank) %>% 
  sf::st_transform(4326)

# puoluekohtaiset kannatukset

library(tidyverse)
library(leaflet)
library(htmlwidgets)
library(glue)
library(sf)
pal <- leaflet::colorFactor(palette = "Set1", domain = factor(dat_alue$ehdokas))

epsg3067 <- leafletCRS(crsClass = "L.Proj.CRS", code = "EPSG:3067",
  proj4def = "+proj=utm +zone=35 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs",
  resolutions = 2^(13:-1), # 8192 down to 0.5
  origin = c(0, 0)
)

labels <- sprintf(
  '<div class="card" style="width: auto;">
  <div class="card-body">
    <img src ="png_labs/%s.png">
  </div>
</div>',
dat_alue$municipality_name_fi
) %>% lapply(htmltools::HTML)


leaflet(dat_alue, 
        options = leafletOptions(worldCopyJump = F, 
                                           crs = epsg3067)
        ) %>% 
  # addProviderTiles(provider = providers$CartoDB.Positron) %>% 
  # leaflet::setView(lng = 25.25,lat = 61.742, zoom = 4) %>% 
  addPolygons(fillColor = ~pal(factor(ehdokas)),
              color = "white",
              weight = 1,
              opacity = 1,
              dashArray = "3",
              fillOpacity = 0.4,
              highlight = highlightOptions(
                weight = 2,
                color = "#666",
                dashArray = "",
                fillOpacity = 0.4,
                bringToFront = TRUE),
              label = labels,
              labelOptions = labelOptions(opacity = .7,
                                          style = list("font-weight" = "normal",
                                                       "font-family" = "Courier New",
                                                       "padding" = "0px"),
                                          textsize = "12px",
                                          direction = "auto")
  ) %>% 
  addLegend(pal = pal, values = ~ehdokas, opacity = 0.7, title = "Kunnan suosituin ehdokas",
            position = "bottomright") %>% 
  leaflet.extras::addFullscreenControl()