제20대 대통령 선거

시각화

--- editor: markdown: wrap: 72 editor_options: chunk_output_type: console --- # 제20대 대통령 선거                                                                                                                                                                                                                                                                                                                                                                                                                      ## 시각화 ```{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_20_sgg_viz |> filter(순위 == 1) |> select(시도 , 시군구, 당선정당=정당, 당선후보=후보, 차이) |> arrange(시도, 시군구) |> ungroup() sgg_viz_loser <- precint_20_sgg_viz |> filter(순위 != 1) |> select(시도, 시군구, 낙선정당=정당, 낙선후보=후보) |> arrange(시도, 시군구) |> ungroup() sgg_viz_sf <- admin_sgg_sf |> arrange(sidonm, sggnm) |> bind_cols(sgg_viz_winner |> select(당선정당, 당선후보, 차이)) |> bind_cols(sgg_viz_loser |> select(낙선정당, 낙선후보)) |> mutate(차이 = ifelse(당선정당 == "더불어민주당", 차이, -차이)) summary(sgg_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) president_20_m <- sgg_viz_sf |> mutate(precinct = str_glue("{sidonm} {sggnm}")) |> 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/>1위정당: %s<br/>1위후보: %s<br/>2위정당: %s<br/>2위후보: %s", sgg_viz_sf$sggnm, 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", interactive = FALSE # sticky = TRUE )) %>% 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(president_20_m, file="data/president_20_m.html", selfcontained = TRUE) ``` :::{.column-body-outset} <iframe src="data/president_20_m.html" width="120%" height="800px"></iframe> :::