제8대 지선 - 구시군의 장

구시군의 장

--- editor: markdown: wrap: 72 editor_options: chunk_output_type: console --- # 제8대 지선 - 구시군의 장 ## 구시군의 장                                                                                                                                                                                                                                                                                                                                                                                                                                                ```{r} #| message: false #| warning: false #| results: "hide" #| eval: false library(leaflet) library(sf) library(tidyverse) sf_use_s2(FALSE) # 시도별 폴리곤 데이터 준비 sido_sf <- bitSpatial::admi %>% group_by(mega_nm) %>% summarise(geometry = st_union(geometry)) sgg_viz_winner <- precint_sgg_viz |> filter(순위 == 1) |> select(시도 , 선거구, 당선정당=정당, 당선후보=후보, 차이) |> arrange(시도, 선거구) |> ungroup() sgg_viz_loser <- precint_sgg_viz |> filter(순위 != 1) |> select(시도, 선거구, 낙선정당=정당, 낙선후보=후보) |> arrange(시도, 선거구) |> ungroup() |> # 무투표 당선 등 226개 맞추기 위함. right_join(sgg_viz_winner |> select(시도, 선거구), by = c("시도", "선거구")) sgg_viz_sf <- admin_precinct_sf |> arrange(sidonm, precinct) |> filter(!str_detect(sidonm, "제주|세종")) |> ungroup() |> bind_cols(sgg_viz_winner |> select(당선정당, 당선후보, 차이)) |> bind_cols(sgg_viz_loser |> select(낙선정당, 낙선후보)) |> mutate(차이 = ifelse(당선정당 == "더불어민주당", 차이, -차이)) |> # 무투표 당선 처리 mutate(당선후보 = case_when( sidonm == "경상북도" & precinct == "예천군" ~ "국힘 김학동", sidonm == "광주광역시" & precinct == "광산구" ~ "민주 박병규", sidonm == "대구광역시" & precinct == "달서구" ~ "국힘 이태훈", sidonm == "대구광역시" & precinct == "중구" ~ "국힘 류규하", sidonm == "전라남도" & precinct == "보성군" ~ "민주 김철우", sidonm == "전라남도" & precinct == "해남군" ~ "민주 명현관", TRUE ~ 당선후보 )) |> mutate(낙선정당 = case_when( sidonm == "경상북도" & precinct == "예천군" ~ "", sidonm == "광주광역시" & precinct == "광산구" ~ "", sidonm == "대구광역시" & precinct == "달서구" ~ "", sidonm == "대구광역시" & precinct == "중구" ~ "", sidonm == "전라남도" & precinct == "보성군" ~ "", sidonm == "전라남도" & precinct == "해남군" ~ "", TRUE ~ 낙선정당 )) |> mutate(낙선후보 = case_when( sidonm == "경상북도" & precinct == "예천군" ~ "", sidonm == "광주광역시" & precinct == "광산구" ~ "", sidonm == "대구광역시" & precinct == "달서구" ~ "", sidonm == "대구광역시" & precinct == "중구" ~ "", sidonm == "전라남도" & precinct == "보성군" ~ "", sidonm == "전라남도" & precinct == "해남군" ~ "", TRUE ~ 낙선후보 )) summary(sido_viz_sf$차이) # 지도 그리기 colors <- c("#8B0000", "#FF0000", "#FFA07A", "white", "#ADD8E6", "#0000FF", "#00008B") bins <- c(-Inf, -0.2, -0.1, -0.05, 0.05, 0.1, 0.2, Inf) color_function <- colorBin(colors, sgg_viz_sf$차이, bins = bins) sgg_local_8_m <- sgg_viz_sf |> mutate(precinct = str_glue("{sidonm} {precinct}")) |> leaflet() %>% addTiles() %>% addPolygons( fillColor = ~colorBin(colors, 차이, bins = bins)(차이), weight = 1.5, opacity = 0.5, color = "white", dashArray = "3", fillOpacity = 0.7, highlight = highlightOptions( weight = 1.5, color = "#666", dashArray = "", fillOpacity = 0.7, bringToFront = TRUE), label = lapply( sprintf( "<b>%s</b><br/>득표차: %2.1f%%<br/>당선정당: %s<br/>당선후보: %s<br/>낙선정당: %s<br/>낙선후보: %s", sgg_viz_sf$precinct, 100*sgg_viz_sf$차이, sgg_viz_sf$당선정당, sgg_viz_sf$당선후보, sgg_viz_sf$낙선정당, sgg_viz_sf$낙선후보 ), htmltools::HTML ), labelOptions = labelOptions( style = list( "font-weight" = "normal", padding = "3px 8px" ), textsize = "15px", direction = "auto", sticky = TRUE ), popup = ~precinct) %>% addPolylines( data = sido_sf, weight = 5, opacity = 1, color = "black" ) %>% addLegend( pal = color_function, values = ~차이, labFormat = labelFormat( prefix = "", suffix = "%", transform = function(x) 100 * x ), opacity = 0.7, title = "득표율 차이", position = "bottomright" ) library(htmlwidgets) saveWidget(sgg_local_8_m, file="data/sgg_local_8_m.html", selfcontained = TRUE) ``` :::{.column-body-outset} <iframe src="data/sgg_local_8_m.html" width="120%" height="800px"></iframe> :::