지도제작 대회

국회의원 선거구

대한민국 선거구를 확인해보자.

저자
소속

이광춘

한국 R 사용자회

오마이뉴스 뉴스기사 (2023년 7월 24일)

지난 총선 민주당 데이터 보니, 수도권도 ‘단수공천’ 집중 ‘총선 후보자선출규정 특별당규 개정’ 청원동의 5만 넘어… 민주당의 답변에 ‘주목’

뉴스기사 바로가기

1 오마이뉴스 선거구

2020. 4. 15. 21대 국회의원 총선거 선거구 지도를 가져온다.

코드
library(sf)
library(tidyverse)

precinct <- st_read("data/2020_21_elec_253.json") |> 
  st_set_crs(4326)
#> Reading layer `2020_21_elec_253' from data source 
#>   `D:\tcs\map_challenge\data\2020_21_elec_253.json' using driver `GeoJSON'
#> Simple feature collection with 253 features and 4 fields
#> Geometry type: MULTIPOLYGON
#> Dimension:     XY
#> Bounding box:  xmin: 124.6097 ymin: 33.11187 xmax: 131.8713 ymax: 38.61695
#> Geodetic CRS:  WGS 84

st_geometry(precinct) |> plot()

2 데이터셋

더불어민주당 국민응답센터 제22대 총선 후보자선출규정 특별당규 개정 청원에서 청원에 담긴 내용 중 위키백과 대한민국 제21대 국회의원 선거 더불어민주당 후보 목록 지역구와 후보자 데이터를 긁어온다.

코드
library(rvest)

wiki_url <- "https://ko.wikipedia.org/wiki/%EB%8C%80%ED%95%9C%EB%AF%BC%EA%B5%AD_%EC%A0%9C21%EB%8C%80_%EA%B5%AD%ED%9A%8C%EC%9D%98%EC%9B%90_%EC%84%A0%EA%B1%B0_%EB%8D%94%EB%B6%88%EC%96%B4%EB%AF%BC%EC%A3%BC%EB%8B%B9_%ED%9B%84%EB%B3%B4_%EB%AA%A9%EB%A1%9D"

sido_name <- read_html(wiki_url) |> 
  html_nodes("h3") |> 
  html_text() |> 
  str_remove("\\[편집\\]")

minju_lst <- read_html(wiki_url) |> 
  html_nodes(".wikitable") |> 
  html_table()

names(minju_lst) <- sido_name

nomination <- sido_name |> 
  enframe(value = "시도명") |> 
  mutate(data = minju_lst) |> 
  unnest(data) |> 
  select(-name) |> 
  janitor::clean_names(ascii = FALSE) 

nomination |> 
  slice_sample(n = 10) |> 
  select(-경력) |> 
  gt::gt()
시도명 선거구 후보자 공천_유형 유튜브
울산광역시 북 이상헌 경선 공천 https://www.youtube.com/channel/UC26N9rlARsZgQPNiAnsk8Bg
경상북도 김천 배영애 단수 공천
대구광역시 달성 박형룡 경선 공천 https://www.youtube.com/channel/UClTWNtz7LfkeI9f1YERbVKw
경상남도 창원 마산회원 하귀남 단수 공천 https://www.youtube.com/channel/UCDUhhKl2bWzAZQU9AoK1-Uw
충청남도 천안 을 박완주 단수 공천 https://www.youtube.com/channel/UCL3cD_phTzvLs8f25PP4ZIQ
서울특별시 관악 갑 유기홍 경선 공천 https://www.youtube.com/channel/UCOiHNsi9Ej-nf751vaRDwVg
경상남도 창원 의창 김기운 경선 공천 https://www.youtube.com/channel/UCPgrstNYM6MuFjpXtbAUAvw
전라남도 해남·진도·완도 윤재갑 경선 공천
강원도 홍천·횡성·영월·평창 원경환 단수 공천 https://www.youtube.com/channel/UCMhYBC7KW-gTlPQlUWnPqWQ
충청남도 천안 갑 문진석 전략 공천 https://www.youtube.com/channel/UCL3zKoc_h1ErJCPhhs6K6UQ
코드

# nomination |> 
#   write_csv("data/nomination_wiki.csv")

3 출판용

3.1 공천 유형

전체 지역구 253개 중에 공천 유형별로 출판용 표로 제작한다.

코드
library(janitor)
library(gt)
library(gtExtras)

nomination_type_gt <- nomination |> 
  tabyl(공천_유형) |> 
  arrange(desc(n)) |> 
  janitor::adorn_totals(name = "합계") |> 
  janitor::adorn_pct_formatting() |> 
  rename(후보수 = n,
         비율 = percent) |> 
  gt() |> 
  gt_theme_538() |> 
  tab_options(
    heading.title.font.size = px(16L),
    column_labels.font.size = px(14L),
    table.font.size = px(12L)
  ) |> 
  cols_align(align = "center") |> 
  tab_header(
    title = md("더불어민주당 공천 유형"),
    subtitle = md("제21대 국회의원 선거")
  ) |> 
  tab_style(
    style = cell_fill(color = "gray85"),
    locations = cells_body(
      rows = 공천_유형 == "단수 공천"
    )
  )  

nomination_type_gt
더불어민주당 공천 유형
제21대 국회의원 선거
공천_유형 후보수 비율
단수 공천 118 46.6%
경선 공천 106 41.9%
전략 공천 28 11.1%
청년 경선 공천 1 0.4%
합계 253 100.0%
코드

# nomination_type_gt |> 
#   gtsave(filename = "images/nomation_type_gt.png")

3.2 공천 상세

코드
library(gt)
library(gtExtras)

nomination |> 
  mutate(
      유튜브 = map(유튜브, ~ htmltools::a(href = .x, "바로가기")),
      유튜브 = map(유튜브, ~ gt::html(as.character(.x))))  |> 
  gt(groupname_col = '시도명') |> 
  gt_theme_538() |> 
  tab_options(
    table.font.size = px(12L)
  ) |> 
  sub_missing(
    columns = everything(),
    missing_text = "-"
  ) |> 
  cols_align(align = "center") |> 
  tab_style(
    style = cell_fill(color = "gray85"),
    locations = cells_body(
      rows = 공천_유형 == "단수 공천"
    )
  )
선거구 후보자 공천_유형 경력 유튜브
서울특별시
종로 이낙연 전략 공천 민선 6기 전남지사45대 국무총리 (2017~2020)16·17·18·19대 국회의원 바로가기
중·성동 갑 홍익표 단수 공천 19·20대 국회의원 바로가기
중·성동 을 박성준 전략 공천 전 JTBC 아나운서팀장 바로가기
용산 강태웅 전략 공천 전 서울시 부시장 바로가기
광진 갑 전혜숙 단수 공천 18·20대 국회의원 바로가기
광진 을 고민정 전략 공천 KBS 한국방송공사 아나운서청와대 대변인 (2019~2020) 바로가기
동대문 갑 안규백 단수 공천 19·20대 국회의원 바로가기
동대문 을 장경태 청년 경선 공천 바로가기
중랑 갑 서영교 경선 공천 19·20대 국회의원 바로가기
중랑 을 박홍근 단수 공천 19·20대 국회의원 바로가기
성북 갑 김영배 경선 공천 민선 5·6기 서울 성북구청장 바로가기
성북 을 기동민 단수 공천 20대 국회의원 바로가기
강북 갑 천준호 경선 공천 민생경제지원단 위원장 바로가기
강북 을 박용진 단수 공천 20대 국회의원 바로가기
도봉 갑 인재근 단수 공천 19·20대 국회의원 바로가기
도봉 을 오기형 경선 공천 변호사 바로가기
노원 갑 고용진 경선 공천 20대 국회의원 바로가기
노원 을 우원식 단수 공천 19·20대 국회의원 바로가기
노원 병 김성환 단수 공천 20대 국회의원 바로가기
은평 갑 박주민 단수 공천 20대 국회의원 바로가기
은평 을 강병원 경선 공천 20대 국회의원 바로가기
서대문 갑 우상호 단수 공천 17·19·20대 국회의원 바로가기
서대문 을 김영호 단수 공천 20대 국회의원 바로가기
마포 갑 노웅래 경선 공천 17·19·20대 국회의원 바로가기
마포 을 정청래 단수 공천 17·19대 국회의원 바로가기
양천 갑 황희 단수 공천 20대 국회의원 바로가기
양천 을 이용선 단수 공천 전 청와대 시민사회수석 바로가기
강서 갑 강선우 경선 공천 중앙당 총선기획위원 바로가기
강서 을 진성준 단수 공천 19대 국회의원 바로가기
강서 병 한정애 단수 공천 19·20대 국회의원 바로가기
구로 갑 이인영 단수 공천 17·19·20대 국회의원 바로가기
구로 을 윤건영 전략 공천 전 청와대 국정상황실장 바로가기
금천 최기상 전략 공천 전 서울북부지법 부장판사 바로가기
영등포 갑 김영주 단수 공천 전 고용노동부 장관 바로가기
영등포 을 김민석 경선 공천 15·16대 국회의원 바로가기
동작 갑 김병기 경선 공천 20대 국회의원 바로가기
동작 을 이수진 전략 공천 전 수원지법 부장판사 바로가기
관악 갑 유기홍 경선 공천 17대 국회의원 바로가기
관악 을 정태호 경선 공천 전 청와대 일자리수석 바로가기
서초 갑 이정근 단수 공천 전 지역위원장 바로가기
서초 을 박경미 경선 공천 20대 국회의원 바로가기
강남 갑 김성곤 단수 공천 15·17·18·19대 국회의원 바로가기
강남 을 전현희 단수 공천 18대·20대 국회의원 바로가기
강남 병 김한규 전략 공천 변호사 바로가기
송파 갑 조재희 경선 공천 전 정책기획위원 바로가기
송파 을 최재성 단수 공천 17·18·19·20대 국회의원 바로가기
송파 병 남인순 단수 공천 19대·20대 국회의원 바로가기
강동 갑 진선미 단수 공천 19·20대 국회의원여성가족부 장관 (2018~2019) 바로가기
강동 을 이해식 경선 공천 민선4·5·6기 서울 강동구청장 바로가기
부산광역시
중·영도 김비오 경선 공천 전 지역위원장 바로가기
서·동 이재강 경선 공천 전 지역위원장 바로가기
부산진 갑 김영춘 단수 공천 16·17·20대 국회의원해양수산부 장관 (2017~2019) 바로가기
부산진 을 류영진 경선 공천 전 식품의약품안전처장 바로가기
동래 박성현 단수 공천 바로가기
남 갑 강준석 전략 공천 13대 해양수산부 차관 바로가기
남 을 박재호 단수 공천 20대 국회의원 바로가기
북·강서 갑 전재수 단수 공천 20대 국회의원 바로가기
북·강서 을 최지은 전략 공천 전 세계은행 선임 이코노미스트 바로가기
해운대 갑 유영민 단수 공천 과학정보기술통신부 장관 (2017년~2019년) 바로가기
해운대 을 윤준호 단수 공천 20대 국회의원 바로가기
사하 갑 최인호 단수 공천 20대 국회의원 바로가기
사하 을 이상호 경선 공천 바로가기
금정 박무성 경선 공천 변호사 바로가기
연제 김해영 단수 공천 20대 국회의원 바로가기
수영 강윤경 단수 공천 바로가기
사상 배재정 단수 공천 19대 국회의원 (비례대표) 바로가기
기장 최택용 경선 공천 바로가기
대구광역시
중·남 이재용 단수 공천 전 환경부 장관 바로가기
동 갑 서재헌 단수 공천 바로가기
동 을 이승천 단수 공천 바로가기
서 윤선진 단수 공천 바로가기
북 갑 이헌태 단수 공천 바로가기
북 을 홍의락 단수 공천 19·20대 국회의원 바로가기
수성 갑 김부겸 단수 공천 16·17·18·20대 국회의원행정안전부 장관 (2017~2019) 바로가기
수성 을 이상식 단수 공천 전 대구지방경찰청장 바로가기
달서 갑 권택흥 단수 공천 바로가기
달서 을 허소 경선 공천 바로가기
달서 병 김대진 단수 공천 바로가기
달성 박형룡 경선 공천 바로가기
인천광역시
중·강화·옹진 조택상 단수 공천 바로가기
동·미추홀 갑 허종식 단수 공천 전 인천광역시 정무경제부시장 바로가기
동·미추홀 을 남영희 경선 공천 바로가기
연수 갑 박찬대 단수 공천 20대 국회의원 바로가기
연수 을 정일영 경선 공천 전 인천국제공항공사 사장 바로가기
남동 갑 맹성규 단수 공천 20대 국회의원 바로가기
남동 을 윤관석 단수 공천 20대 국회의원 바로가기
부평 갑 이성만 경선 공천 전 인천광역시 시의원 바로가기
부평 을 홍영표 단수 공천 19·20대 국회의원 바로가기
계양 갑 유동수 단수 공천 20대 국회의원 바로가기
계양 을 송영길 단수 공천 17·18·20대 국회의원민선 5기 인천광역시장 바로가기
서 갑 김교흥 단수 공천 17대 국회의원 바로가기
서 을 신동근 단수 공천 20대 국회의원 바로가기
광주광역시
동·남 갑 윤영덕 경선 공천 바로가기
동·남 을 이병훈 경선 공천 바로가기
서 갑 송갑석 단수 공천 제20대 국회의원 바로가기
서 을 양향자 경선 공천 전 삼성전자 상무이사 바로가기
북 갑 조오섭 경선 공천 바로가기
북 을 이형석 경선 공천 바로가기
광산 갑 이용빈 단수 공천 광주광역시당 광산구(갑) 지역위원장 바로가기
광산 을 민형배 경선 공천 바로가기
대전광역시
동 장철민 경선 공천 바로가기
중 황운하 경선 공천 전 울산지방경찰청장 바로가기
서 갑 박병석 단수 공천 16·17·18·19·20대 국회의원19대 국회 전반기 국회부의장 바로가기
서 을 박범계 단수 공천 19·20대 국회의원 바로가기
유성 갑 조승래 단수 공천 20대 국회의원 바로가기
유성 을 이상민 경선 공천 17·18·19·20대 국회의원 바로가기
대덕 박영순 경선 공천 전 대전광역시 정무부시장 바로가기
울산광역시
중 임동호 경선 공천 바로가기
남 갑 심규명 경선 공천 변호사 바로가기
남 을 박성진 경선 공천 바로가기
동 김태선 경선 공천 바로가기
북 이상헌 경선 공천 20대 국회의원 바로가기
울주 김영문 단수 공천 관세청장 (2017년~2019년) 바로가기
세종특별자치시
세종 갑 홍성국 전략 공천 전 미래에셋대우 대표이사 바로가기
세종 을 강준현 경선 공천 전 세종시 정무부시장 바로가기
경기도
수원 갑 김승원 경선 공천 바로가기
수원 을 백혜련 단수 공천 20대 국회의원 바로가기
수원 병 김영진 단수 공천 20대 국회의원 바로가기
수원 정 박광온 단수 공천 20대 국회의원 바로가기
수원 무 김진표 단수 공천 20대 국회의원 바로가기
성남 수정 김태년 단수 공천 20대 국회의원 바로가기
성남 중원 윤영찬 경선 공천 전 청와대 국민소통수석네이버 부사장 바로가기
성남 분당 갑 김병관 경선 공천 20대 국회의원 바로가기
성남 분당 을 김병욱 단수 공천 20대 국회의원 바로가기
의정부 갑 오영환 전략 공천 바로가기
의정부 을 김민철 경선 공천 바로가기
안양 만안 강득구 경선 공천 전 경기도 연정부지사경기도의회 의장 바로가기
안양 동안 갑 민병덕 경선 공천 변호사 바로가기
안양 동안 을 이재정 경선 공천 20대 국회의원(비례대표) 바로가기
부천 갑 김경협 단수 공천 20대 국회의원 바로가기
부천 을 설훈 경선 공천 20대 국회의원 바로가기
부천 병 김상희 단수 공천 20대 국회의원 바로가기
부천 정 서영석 경선 공천 바로가기
광명 갑 임오경 전략 공천 전 핸드볼 감독전 국가대표 핸드볼 선수 바로가기
광명 을 양기대 경선 공천 전 광명시장 바로가기
평택 갑 홍기원 경선 공천 바로가기
평택 을 김현정 전략 공천 바로가기
동두천·연천 서동욱 경선 공천 바로가기
안산 상록 갑 전해철 단수 공천 19·20대 국회의원 바로가기
안산 상록 을 김철민 단수 공천 20대 국회의원전 안산시장 바로가기
안산 단원 갑 고영인 경선 공천 바로가기
안산 단원 을 김남국 전략 공천 변호사 바로가기
고양 갑 문명순 단수 공천 바로가기
고양 을 한준호 전략 공천 전 MBC 아나운서 바로가기
고양 병 홍정민 전략 공천 변호사 바로가기
고양 정 이용우 전략 공천 전 카카오뱅크 대표이사 바로가기
의왕·과천 이소영 전략 공천 변호사 바로가기
구리 윤호중 단수 공천 17·19·20대 국회의원 바로가기
남양주 갑 조응천 경선 공천 20대 국회의원전 청와대 공직기강비서관 바로가기
남양주 을 김한정 경선 공천 20대 국회의원 바로가기
남양주 병 김용민 전략 공천 변호사 바로가기
오산 안민석 단수 공천 17·18·19·20대 국회의원 바로가기
시흥 갑 문정복 경선 공천 바로가기
시흥 을 조정식 단수 공천 17·18·19·20대 국회의원 바로가기
군포 이학영 경선 공천 19·20대 국회의원 바로가기
하남 최종윤 경선 공천 바로가기
용인 갑 오세영 경선 공천 바로가기
용인 을 김민기 단수 공천 19·20대 국회의원 바로가기
용인 병 정춘숙 경선 공천 20대 국회의원(비례대표) 바로가기
용인 정 이탄희 전략 공천 변호사전 수원지법 안양지원 판사 바로가기
파주 갑 윤후덕 경선 공천 19·20대 국회의원 바로가기
파주 을 박정 단수 공천 20대 국회의원 바로가기
이천 김용진 경선 공천 전 기획재정부 차관 바로가기
안성 이규민 경선 공천 바로가기
김포 갑 김주영 전략 공천 전 한국노총 위원장 바로가기
김포 을 박상혁 경선 공천 바로가기
화성 갑 송옥주 경선 공천 20대 국회의원(비례대표) 바로가기
화성 을 이원욱 단수 공천 19·20대 국회의원 바로가기
화성 병 권칠승 단수 공천 20대 국회의원 바로가기
광주 갑 소병훈 경선 공천 20대 국회의원 바로가기
광주 을 임종성 단수 공천 20대 국회의원 바로가기
양주 정성호 단수 공천 17·19·20대 국회의원 바로가기
포천·가평 이철휘 경선 공천 바로가기
여주·양평 최재관 경선 공천 바로가기
강원도
춘천·철원·화천·양구 갑 허영 경선 공천 바로가기
춘천·철원·화천·양구 을 정만호 경선 공천 바로가기
홍천·횡성·영월·평창 원경환 단수 공천 전 서울지방경찰청장 바로가기
원주 갑 이광재 경선 공천 17·18대 국회의원전 강원도지사 바로가기
원주 을 송기헌 단수 공천 20대 국회의원 바로가기
강릉 김경수 단수 공천 바로가기
동해·태백·삼척·정선 김동완 경선 공천 바로가기
속초·인제·고성·양양 이동기 경선 공천 바로가기
충청북도
청주 상당 정정순 경선 공천 바로가기
청주 서원 이장섭 경선 공천 바로가기
청주 흥덕 도종환 단수 공천 19·20대 국회의원전 문화체육관광부 장관 바로가기
청주 청원 변재일 단수 공천 17·18·19·20대 국회의원 바로가기
충주 김경욱 단수 공천 바로가기
제천·단양 이후삼 경선 공천 20대 국회의원 바로가기
보은·옥천·영동·괴산 곽상언 경선 공천 변호사 바로가기
증평·진천·음성 임호선 단수 공천 바로가기
충청남도
천안 갑 문진석 전략 공천 바로가기
천안 을 박완주 단수 공천 19·20대 국회의원 바로가기
천안 병 이정문 경선 공천 바로가기
아산 갑 복기왕 단수 공천 17대 국회의원전 아산시장 바로가기
아산 을 강훈식 단수 공천 20대 국회의원 바로가기
공주·부여·청양 박수현 단수 공천 19대 국회의원전 청와대 대변인 바로가기
당진 어기구 경선 공천 20대 국회의원 바로가기
서산·태안 조한기 단수 공천 바로가기
논산·계룡·금산 김종민 경선 공천 20대 국회의원 바로가기
홍성·예산 김학민 경선 공천 바로가기
보령·서천 나소열 단수 공천 전 서천군수 바로가기
전라북도
전주 갑 김윤덕 경선 공천 제19대 국회의원 바로가기
전주 을 이상직 경선 공천 제19대 국회의원전 이스타항공 총괄회장 바로가기
전주 병 김성주 단수 공천 제19대 국회의원 바로가기
군산 신영대 단수 공천 바로가기
익산 갑 김수흥 경선 공천 전 국회사무처 사무차장 바로가기
익산 을 한병도 경선 공천 제17대 국회의원 바로가기
정읍·고창 윤준병 단수 공천 전 서울특별시 행정1부시장 바로가기
남원·임실·순창 이강래 경선 공천 제16·17·18대 국회의원전 한국도로공사 사장 바로가기
김제·부안 이원택 단수 공천 전 문재인 정부 청와대 행정관전 전라북도 정무부지사 바로가기
완주·진안·무주·장수 안호영 경선 공천 제20대 국회의원 바로가기
전라남도
목포 김원이 경선 공천 전 서울특별시 정무부시장 바로가기
여수 갑 주철현 경선 공천 전 여수시장(민선 6기)전 대검찰청 강력부장 바로가기
여수 을 김회재 경선 공천 바로가기
순천·광양·곡성·구례 갑 소병철 전략 공천 전 법무연수원장농협대학교, 순천대학교, 법무연수원 석좌교수 바로가기
순천·광양·곡성·구례 을 서동용 경선 공천 바로가기
나주·화순 신정훈 경선 공천 제19대 국회의원 바로가기
담양·함평·영광·장성 이개호 단수 공천 제19·20대 국회의원전 농림축산식품부 장관전 전라남도 제35대 행정부지사 바로가기
무안·신안·영암 서삼석 경선 공천 제20대 국회의원제42·43·44대 무안군수제5·6대 전라남도의회 의원 바로가기
고흥·보성·장흥·강진 김승남 경선 공천 제19대 국회의원 바로가기
해남·진도·완도 윤재갑 경선 공천 전 해군 군수사령부 사령관목포해양대학교 초빙교수 바로가기
경상북도
포항 북 오중기 단수 공천 - 바로가기
포항 남·울릉 허대만 단수 공천 - 바로가기
구미 갑 김철호 경선 공천 - 바로가기
구미 을 김현권 단수 공천 - 바로가기
경산 전상헌 경선 공천 - 바로가기
김천 배영애 단수 공천 - 바로가기
경주 정다은 전략 공천 - 바로가기
안동·예천 이삼걸 단수 공천 - 바로가기
영천·청도 정우동 단수 공천 - 바로가기
군위·의성·청송·영덕 강부송 단수 공천 - 바로가기
상주·문경 정용운 단수 공천 - 바로가기
영주·영양·봉화·울진 황재선 경선 공천 - 바로가기
고령·성주·칠곡 장세호 단수 공천 - 바로가기
경상남도
창원 의창 김기운 경선 공천 바로가기
창원 성산 이흥석 단수 공천 바로가기
창원 마산합포 박남현 경선 공천 바로가기
창원 마산회원 하귀남 단수 공천 바로가기
창원 진해 황기철 단수 공천 제30대 해군참모총장 바로가기
진주 갑 정영훈 경선 공천 바로가기
진주 을 한경호 단수 공천 바로가기
김해 갑 민홍철 단수 공천 제19·20대 국회의원 바로가기
김해 을 김정호 경선 공천 제20대 국회의원 바로가기
양산 갑 이재영 전략 공천 대외경제정책연구원 원장외교부 정책자문위원 바로가기
양산 을 김두관 전략 공천 제20대 국회의원(경기 김포 갑)제34대 경상남도지사제38·39대 남해군수 바로가기
통영·고성 양문석 단수 공천 바로가기
거제 문상모 경선 공천 바로가기
밀양·의령·함안·창녕 조성환 단수 공천 바로가기
사천·남해·하동 황인성 단수 공천 바로가기
산청·함양·거창·합천 서필상 단수 공천 바로가기
제주특별자치도
제주 갑 송재호 전략 공천 바로가기
제주 을 오영훈 경선 공천 제20대 국회의원 바로가기
서귀포 위성곤 단수 공천 제20대 국회의원 바로가기

4 인터랙티브 표

crosstalk 패키지를 사용하여 시도별로 해당 후보만 살펴볼 수 있게 준비한다. reactable 패키지를 사용할 경우 더욱 미려한 출력결과를 얻을 수 있다.

Client-side interactivity - do more with Crosstalk: Because sharing data is caring
코드
library(crosstalk)
library(DT)

shared_nomination <- SharedData$new(nomination)

bscols(
  widths = c(3,NA),
  list(
    filter_select("시도명", label="시도명", shared_nomination, group = ~시도명)
  ),
  datatable(shared_nomination)
)

5 선거구와 공천유형

5.1 데이터셋

fuzzyjjoin 함수를 사용해서 매칭을 하고 일부 잘못 매칭된 것은 수작업으로 보정한다.

코드
library(fuzzyjoin)

nomination_tbl <- nomination |> 
  mutate(SGG_2 = glue::glue("{시도명} {str_remove_all(선거구, '( )|·')}")) |> 
  select(SGG_2, 후보자, 공천_유형) 

precinct_nomination <- stringdist_left_join(precinct, nomination_tbl, 
                     by = c("SGG_2" = "SGG_2"), 
                     method       = "jw", 
                     max_dist     = 0.08) 

precinct_nomination
#>     SGG_Code SGG_1                             SGG_2.x                   SGG_3
#> 1    2270202  대구                   대구광역시 동구을             대구 동구을
#> 2    2270101  대구                 대구광역시 중구남구           대구 중구남구
#> 3    2412001  경기                     경기도 고양시갑             경기 고양갑
#> 4    2411002  경기               경기도 안양시동안구을         경기 안양동안을
#> 5    2480802  경남                   경상남도 김해시을             경남 김해을
#> 6    2410301  경기                     경기도 수원시병             경기 수원병
#> 7    2280702  인천                 인천광역시 계양구을             인천 계양을
#> 8    2110601  서울               서울특별시 동대문구갑           서울 동대문갑
#> 9    2460702  전남 전라남도 순천시광양시곡성군구례군을 전남 순천광양곡성구례을
#> 10   2440103  충남                   충청남도 천안시병             충남 천안병
#> 11   2260902  부산               부산광역시 해운대구갑           부산 해운대갑
#> 12   2310401  울산                     울산광역시 북구               울산 북구
#> 13   2300402  대전                 대전광역시 유성구갑             대전 유성갑
#> 14   2300301  대전                   대전광역시 서구갑             대전 서구갑
#> 15   2413902  경기                     경기도 김포시갑             경기 김포갑
#> 16   2280602  인천                 인천광역시 부평구을             인천 부평을
#> 17   2261301  부산             부산광역시 북구강서구을           부산 북강서을
#> 18   2290401  광주                   광주광역시 북구갑             광주 북구갑
#> 19   2260701  부산                   부산광역시 남구갑             부산 남구갑
#> 20   2412803  경기                     경기도 화성시병             경기 화성병
#> 21   2111902  서울               서울특별시 영등포구을           서울 영등포을
#> 22   2460201  전남                   전라남도 여수시갑             전남 여수갑
#> 23   2470401  경북                     경상북도 경주시               경북 경주
#> 24   2420202  강원                     강원도 원주시갑             강원 원주갑
#> 25   2420101  강원   강원도 춘천시철원군화천군양구군갑 강원 춘천철원화천양구갑
#> 26   2111302  서울               서울특별시 서대문구을           서울 서대문을
#> 27   2413202  경기                     경기도 파주시갑             경기 파주갑
#> 28   2112301  서울                 서울특별시 강남구갑             서울 강남갑
#> 29   2451001  전북   전라북도 완주군진안군무주군장수군   전북 완주진안무주장수
#> 30   2412501  경기                       경기도 구리시               경기 구리
#> 31   2110702  서울                 서울특별시 중랑구을             서울 중랑을
#> 32   2310202  울산                   울산광역시 남구을             울산 남구을
#> 33   2111701  서울                 서울특별시 구로구갑             서울 구로갑
#> 34   2450101  전북                   전라북도 전주시갑             전북 전주갑
#> 35   2413801  경기                       경기도 안성시               경기 안성
#> 36   2412002  경기                     경기도 고양시을             경기 고양을
#> 37   2111101  서울                 서울특별시 노원구갑             서울 노원갑
#> 38   2110602  서울               서울특별시 동대문구을           서울 동대문을
#> 39   2270501  대구                   대구광역시 북구갑             대구 북구갑
#> 40   2411401  경기                     경기도 광명시갑             경기 광명갑
#> 41   2450801  전북         전라북도 남원시임실군순창군       전북 남원임실순창
#> 42   2260903  부산               부산광역시 해운대구을           부산 해운대을
#> 43   2490102  제주             제주특별자치도 제주시을             제주 제주을
#> 44   2410701  경기               경기도 성남시분당구갑         경기 성남분당갑
#> 45   2300403  대전                 대전광역시 유성구을             대전 유성을
#> 46   2300302  대전                   대전광역시 서구을             대전 서구을
#> 47   2111001  서울                 서울특별시 도봉구갑             서울 도봉갑
#> 48   2413903  경기                     경기도 김포시을             경기 김포을
#> 49   2410101  경기                     경기도 수원시갑             경기 수원갑
#> 50   2430401  충북               충청북도 제천시단양군           충북 제천단양
#> 51   2480202  경남           경상남도 창원시마산회원구       경남 창원마산회원
#> 52   2260702  부산                   부산광역시 남구을             부산 남구을
#> 53   2481001  경남                     경상남도 거제시               경남 거제
#> 54   2460202  전남                   전라남도 여수시을             전남 여수을
#> 55   2300101  대전                     대전광역시 동구               대전 동구
#> 56   2420203  강원                     강원도 원주시을             강원 원주을
#> 57   2411001  경기               경기도 안양시동안구갑         경기 안양동안갑
#> 58   2461201  전남   전라남도 고흥군보성군장흥군강진군   전남 고흥보성장흥강진
#> 59   2280402  인천                 인천광역시 연수구갑             인천 연수갑
#> 60   2261101  부산                 부산광역시 사하구갑             부산 사하갑
#> 61   2413203  경기                     경기도 파주시을             경기 파주을
#> 62   2112302  서울                 서울특별시 강남구을             서울 강남을
#> 63   2460601  전남               전라남도 나주시화순군           전남 나주화순
#> 64   2440102  충남                   충청남도 천안시을             충남 천안을
#> 65   2481901  경남   경상남도 산청군함양군거창군합천군   경남 산청함양거창합천
#> 66   2510101  세종     세종특별자치시 세종특별자치시갑           세종 세종시갑
#> 67   2412603  경기                   경기도 남양주시병           경기 남양주병
#> 68   2111702  서울                 서울특별시 구로구을             서울 구로을
#> 69   2462101  전남         전라남도 영암군무안군신안군       전남 영암무안신안
#> 70   2413602  경기                     경기도 용인시병             경기 용인병
#> 71   2111102  서울                 서울특별시 노원구을             서울 노원을
#> 72   2471902  경북   경상북도 군위군의성군청송군영덕군   경북 군위의성청송영덕
#> 73   2413002  경기                       경기도 군포시               경기 군포
#> 74   2112101  서울                 서울특별시 관악구갑             서울 관악갑
#> 75   2270502  대구                   대구광역시 북구을             대구 북구을
#> 76   2260401  부산               부산광역시 중구영도구         부산 중구영도구
#> 77   2412301  경기                 경기도 의왕시과천시           경기 의왕과천
#> 78   2410702  경기               경기도 성남시분당구을         경기 성남분당을
#> 79   2413401  경기                       경기도 이천시               경기 이천
#> 80   2414102  경기                 경기도 포천시가평군           경기 포천가평
#> 81   2111002  서울                 서울특별시 도봉구을             서울 도봉을
#> 82   2411701  경기               경기도 동두천시연천군         경기 동두천연천
#> 83   2112001  서울                 서울특별시 동작구갑             서울 동작갑
#> 84   2110402  서울             서울특별시 중구성동구갑         서울 중구성동갑
#> 85   2270301  대구                     대구광역시 서구               대구 서구
#> 86   2440901  충남         충청남도 논산시계룡시금산군       충남 논산계룡금산
#> 87   2111401  서울                 서울특별시 마포구갑             서울 마포갑
#> 88   2480901  경남   경상남도 밀양시의령군함안군창녕군   경남 밀양의령함안창녕
#> 89   2110801  서울                 서울특별시 성북구갑             서울 성북갑
#> 90   2480301  경남                   경상남도 진주시갑             경남 진주갑
#> 91   2280403  인천                 인천광역시 연수구을             인천 연수을
#> 92   2261102  부산                 부산광역시 사하구을             부산 사하을
#> 93   2110201  서울             서울특별시 중구성동구을         서울 중구성동을
#> 94   2420102  강원   강원도 춘천시철원군화천군양구군을 강원 춘천철원화천양구을
#> 95   2112303  서울                 서울특별시 강남구병             서울 강남병
#> 96   2300501  대전                   대전광역시 대덕구               대전 대덕
#> 97   2450201  전북                   전라북도 전주시병             전북 전주병
#> 98   2510102  세종     세종특별자치시 세종특별자치시을           세종 세종시을
#> 99   2410401  경기                     경기도 수원시정             경기 수원정
#> 100  2421402  강원     강원도 홍천군횡성군영월군평창군   강원 홍천횡성영월평창
#> 101  2280802  인천                   인천광역시 서구갑             인천 서구갑
#> 102  2261501  부산                   부산광역시 수영구               부산 수영
#> 103  2440501  충남               충청남도 서산시태안군           충남 서산태안
#> 104  2111103  서울                 서울특별시 노원구병             서울 노원병
#> 105  2261002  부산                   부산광역시 기장군               부산 기장
#> 106  2280101  인천         인천광역시 중구강화군옹진군       인천 중구강화옹진
#> 107  2411301  경기                     경기도 부천시정             경기 부천정
#> 108  2112102  서울                 서울특별시 관악구을             서울 관악을
#> 109  2461801  전남         전라남도 해남군완도군진도군       전남 해남완도진도
#> 110  2414002  경기                     경기도 광주시갑             경기 광주갑
#> 111  2420301  강원                       강원도 강릉시               강원 강릉
#> 112  2440301  충남               충청남도 보령시서천군           충남 보령서천
#> 113  2261401  부산                   부산광역시 연제구               부산 연제
#> 114  2471302  경북                     경상북도 경산시               경북 경산
#> 115  2112501  서울                 서울특별시 강동구갑             서울 강동갑
#> 116  2450102  전북                   전라북도 전주시을             전북 전주을
#> 117  2260801  부산             부산광역시 북구강서구갑           부산 북강서갑
#> 118  2440202  충남         충청남도 공주시부여군청양군       충남 공주부여청양
#> 119  2112002  서울                 서울특별시 동작구을             서울 동작을
#> 120  2310301  울산                     울산광역시 동구               울산 동구
#> 121  2440101  충남                   충청남도 천안시갑             충남 천안갑
#> 122  2260201  부산                 부산광역시 서구동구           부산 서구동구
#> 123  2470702  경북                   경상북도 구미시을             경북 구미을
#> 124  2411501  경기                     경기도 평택시갑             경기 평택갑
#> 125  2111402  서울                 서울특별시 마포구을             서울 마포을
#> 126  2412101  경기                     경기도 고양시병             경기 고양병
#> 127  2470601  경북               경상북도 안동시예천군           경북 안동예천
#> 128  2112401  서울                 서울특별시 송파구갑             서울 송파갑
#> 129  2110802  서울                 서울특별시 성북구을             서울 성북을
#> 130  2270701  대구                 대구광역시 달서구갑             대구 달서갑
#> 131  2480302  경남                   경상남도 진주시을             경남 진주을
#> 132  2111801  서울                   서울특별시 금천구               서울 금천
#> 133  2430202  충북               충청북도 청주시흥덕구           충북 청주흥덕
#> 134  2110101  서울                   서울특별시 종로구               서울 종로
#> 135  2111201  서울                 서울특별시 은평구갑             서울 은평갑
#> 136  2431002  충북         충청북도 증평군진천군음성군       충북 증평진천음성
#> 137  2280803  인천                   인천광역시 서구을             인천 서구을
#> 138  2471701  경북         경상북도 고령군성주군칠곡군       경북 고령성주칠곡
#> 139  2270601  대구                 대구광역시 수성구갑             대구 수성갑
#> 140  2480101  경남               경상남도 창원시의창구           경남 창원의창
#> 141  2410801  경기                   경기도 의정부시갑           경기 의정부갑
#> 142  2411101  경기                     경기도 부천시갑             경기 부천갑
#> 143  2430601  충북               충청북도 청주시청원구           충북 청주청원
#> 144  2430101  충북               충청북도 청주시상당구           충북 청주상당
#> 145  2414003  경기                     경기도 광주시을             경기 광주을
#> 146  2410201  경기                     경기도 수원시을             경기 수원을
#> 147  2280501  인천                 인천광역시 남동구갑             인천 남동갑
#> 148  2112502  서울                 서울특별시 강동구을             서울 강동을
#> 149  2441601  충남                     충청남도 당진시               충남 당진
#> 150  2290201  광주                   광주광역시 서구갑             광주 서구갑
#> 151  2300201  대전                     대전광역시 중구               대전 중구
#> 152  2413701  경기                     경기도 용인시을             경기 용인을
#> 153  2450502  전북                   전라북도 익산시을             전북 익산을
#> 154  2261201  부산                   부산광역시 금정구               부산 금정
#> 155  2112402  서울                 서울특별시 송파구을             서울 송파을
#> 156  2413101  경기                       경기도 하남시               경기 하남
#> 157  2270702  대구                 대구광역시 달서구을             대구 달서을
#> 158  2260601  부산                   부산광역시 동래구               부산 동래
#> 159  2290502  광주                 광주광역시 광산구을             광주 광산을
#> 160  2310101  울산                     울산광역시 중구               울산 중구
#> 161  2470501  경북                     경상북도 김천시               경북 김천
#> 162  2481403  경남                   경상남도 양산시을             경남 양산을
#> 163  2111202  서울                 서울특별시 은평구을             서울 은평을
#> 164  2411901  경기               경기도 안산시단원구갑         경기 안산단원갑
#> 165  2470901  경북               경상북도 영천시청도군               경북 영천
#> 166  2112201  서울                 서울특별시 서초구갑             서울 서초갑
#> 167  2290302  광주               광주광역시 동구남구갑         광주 동구남구갑
#> 168  2270602  대구                 대구광역시 수성구을             대구 수성을
#> 169  2110501  서울                 서울특별시 광진구갑             서울 광진갑
#> 170  2480102  경남               경상남도 창원시성산구           경남 창원성산
#> 171  2111601  서울                 서울특별시 강서구갑             서울 강서갑
#> 172  2470802  경북   경상북도 영주시영양군봉화군울진군   경북 영주영양봉화울진
#> 173  2410802  경기                   경기도 의정부시을           경기 의정부을
#> 174  2460403  전남 전라남도 순천시광양시곡성군구례군갑 전남 순천광양곡성구례갑
#> 175  2470701  경북                   경상북도 구미시갑             경북 구미갑
#> 176  2411801  경기               경기도 안산시상록구갑         경기 안산상록갑
#> 177  2410202  경기                     경기도 수원시무             경기 수원무
#> 178  2480501  경남               경상남도 통영시고성군           경남 통영고성
#> 179  2280502  인천                 인천광역시 남동구을             인천 남동을
#> 180  2411201  경기                     경기도 부천시병             경기 부천병
#> 181  2412901  경기                     경기도 시흥시갑             경기 시흥갑
#> 182  2410601  경기                 경기도 성남시중원구           경기 성남중원
#> 183  2411502  경기                     경기도 평택시을             경기 평택을
#> 184  2460101  전남                     전라남도 목포시               전남 목포
#> 185  2470101  경북                 경상북도 포항시북구           경북 포항북구
#> 186  2413702  경기                     경기도 용인시정             경기 용인정
#> 187  2480401  경남               경상남도 창원시진해구           경남 창원진해
#> 188  2440402  충남                   충청남도 아산시갑             충남 아산갑
#> 189  2280301  인천           인천광역시 동구미추홀구갑       인천 동구미추홀갑
#> 190  2112403  서울                 서울특별시 송파구병             서울 송파병
#> 191  2412701  경기                       경기도 오산시               경기 오산
#> 192  2430201  충북               충청북도 청주시서원구           충북 청주서원
#> 193  2270703  대구                 대구광역시 달서구병             대구 달서병
#> 194  2260501  부산               부산광역시 부산진구갑           부산 부산진갑
#> 195  2450902  전북               전라북도 김제시부안군           전북 김제부안
#> 196  2261601  부산                   부산광역시 사상구               부산 사상
#> 197  2412602  경기                   경기도 남양주시을           경기 남양주을
#> 198  2413501  경기                     경기도 용인시갑             경기 용인갑
#> 199  2411902  경기               경기도 안산시단원구을         경기 안산단원을
#> 200  2411102  경기                     경기도 부천시을             경기 부천을
#> 201  2112202  서울                 서울특별시 서초구을             서울 서초을
#> 202  2310501  울산                   울산광역시 울주군               울산 울주
#> 203  2110502  서울                 서울특별시 광진구을             서울 광진을
#> 204  2420401  강원     강원도 동해시태백시삼척시정선군   강원 동해태백삼척정선
#> 205  2111602  서울                 서울특별시 강서구을             서울 강서을
#> 206  2111501  서울                 서울특별시 양천구갑             서울 양천갑
#> 207  2450701  전북               전라북도 정읍시고창군           전북 정읍고창
#> 208  2411802  경기               경기도 안산시상록구을         경기 안산상록을
#> 209  2110901  서울                 서울특별시 강북구갑             서울 강북갑
#> 210  2450501  전북                   전라북도 익산시갑             전북 익산갑
#> 211  2412801  경기                     경기도 화성시갑             경기 화성갑
#> 212  2110301  서울                   서울특별시 용산구               서울 용산
#> 213  2290501  광주                 광주광역시 광산구갑             광주 광산갑
#> 214  2412201  경기                     경기도 고양시정             경기 고양정
#> 215  2410501  경기                 경기도 성남시수정구           경기 성남수정
#> 216  2490201  제주             제주특별자치도 서귀포시             제주 서귀포
#> 217  2270801  대구                   대구광역시 달성군               대구 달성
#> 218  2290402  광주                   광주광역시 북구을             광주 북구을
#> 219  2440403  충남                   충청남도 아산시을             충남 아산을
#> 220  2280302  인천           인천광역시 동구미추홀구을       인천 동구미추홀을
#> 221  2270201  대구                   대구광역시 동구갑             대구 동구갑
#> 222  2430701  충북   충청북도 보은군옥천군영동군괴산군   충북 보은옥천영동괴산
#> 223  2260502  부산               부산광역시 부산진구을           부산 부산진을
#> 224  2480801  경남                   경상남도 김해시갑             경남 김해갑
#> 225  2290202  광주                   광주광역시 서구을             광주 서구을
#> 226  2280701  인천                 인천광역시 계양구갑             인천 계양갑
#> 227  2290101  광주               광주광역시 동구남구을         광주 동구남구을
#> 228  2480201  경남           경상남도 창원시마산합포구       경남 창원마산합포
#> 229  2480702  경남         경상남도 사천시남해군하동군       경남 사천남해하동
#> 230  2410901  경기                 경기도 안양시만안구           경기 안양만안
#> 231  2412902  경기                     경기도 시흥시을             경기 시흥을
#> 232  2490101  제주             제주특별자치도 제주시갑             제주 제주갑
#> 233  2111603  서울                 서울특별시 강서구병             서울 강서병
#> 234  2111502  서울                 서울특별시 양천구을             서울 양천을
#> 235  2280601  인천                 인천광역시 부평구갑             인천 부평갑
#> 236  2471002  경북               경상북도 상주시문경시           경북 상주문경
#> 237  2413301  경기                 경기도 여주시양평군           경기 여주양평
#> 238  2462202  전남   전라남도 담양군함평군영광군장성군   전남 담양함평영광장성
#> 239  2110902  서울                 서울특별시 강북구을             서울 강북을
#> 240  2420801  강원     강원도 속초시인제군고성군양양군   강원 속초인제고성양양
#> 241  2411402  경기                     경기도 광명시을             경기 광명을
#> 242  2441301  충남               충청남도 홍성군예산군           충남 홍성예산
#> 243  2412802  경기                     경기도 화성시을             경기 화성을
#> 244  2111901  서울               서울특별시 영등포구갑           서울 영등포갑
#> 245  2450301  전북                     전라북도 군산시               전북 군산
#> 246  2481402  경남                   경상남도 양산시갑             경남 양산갑
#> 247  2470201  경북           경상북도 포항시남구울릉군         경북 포항남울릉
#> 248  2111301  서울               서울특별시 서대문구갑           서울 서대문갑
#> 249  2412601  경기                   경기도 남양주시갑           경기 남양주갑
#> 250  2411602  경기                       경기도 양주시               경기 양주
#> 251  2110701  서울                 서울특별시 중랑구갑             서울 중랑갑
#> 252  2430301  충북                     충청북도 충주시               충북 충주
#> 253  2310201  울산                   울산광역시 남구갑             울산 남구갑
#>                         SGG_2.y 후보자      공천_유형
#> 1               대구광역시 동을 이승천      단수 공천
#> 2               대구광역시 중남 이재용      단수 공천
#> 3                 경기도 고양갑 문명순      단수 공천
#> 4             경기도 안양동안을 이재정      경선 공천
#> 5               경상남도 김해을 김정호      경선 공천
#> 6                 경기도 수원병 김영진      단수 공천
#> 7             인천광역시 계양을 송영길      단수 공천
#> 8           서울특별시 동대문갑 안규백      단수 공천
#> 9   전라남도 순천광양곡성구례을 서동용      경선 공천
#> 10              충청남도 천안병 이정문      경선 공천
#> 11          부산광역시 해운대갑 유영민      단수 공천
#> 12                울산광역시 북 이상헌      경선 공천
#> 13            대전광역시 유성갑 조승래      단수 공천
#> 14              대전광역시 서갑 박병석      단수 공천
#> 15                경기도 김포갑 김주영      전략 공천
#> 16            인천광역시 부평을 홍영표      단수 공천
#> 17          부산광역시 북강서을 최지은      전략 공천
#> 18              광주광역시 북갑 조오섭      경선 공천
#> 19              부산광역시 남갑 강준석      전략 공천
#> 20                경기도 화성병 권칠승      단수 공천
#> 21          서울특별시 영등포을 김민석      경선 공천
#> 22              전라남도 여수갑 주철현      경선 공천
#> 23                경상북도 경주 정다은      전략 공천
#> 24                강원도 원주갑 이광재      경선 공천
#> 25    강원도 춘천철원화천양구갑   허영      경선 공천
#> 26          서울특별시 서대문을 김영호      단수 공천
#> 27                경기도 파주갑 윤후덕      경선 공천
#> 28            서울특별시 강남갑 김성곤      단수 공천
#> 29    전라북도 완주진안무주장수 안호영      경선 공천
#> 30                  경기도 구리 윤호중      단수 공천
#> 31            서울특별시 중랑을 박홍근      단수 공천
#> 32              울산광역시 남을 박성진      경선 공천
#> 33            서울특별시 구로갑 이인영      단수 공천
#> 34              전라북도 전주갑 김윤덕      경선 공천
#> 35                  경기도 안성 이규민      경선 공천
#> 36                경기도 고양을 한준호      전략 공천
#> 37            서울특별시 노원갑 고용진      경선 공천
#> 38          서울특별시 동대문을 장경태 청년 경선 공천
#> 39              대구광역시 북갑 이헌태      단수 공천
#> 40                경기도 광명갑 임오경      전략 공천
#> 41        전라북도 남원임실순창 이강래      경선 공천
#> 42          부산광역시 해운대을 윤준호      단수 공천
#> 43        제주특별자치도 제주을 오영훈      경선 공천
#> 44            경기도 성남분당갑 김병관      경선 공천
#> 45            대전광역시 유성을 이상민      경선 공천
#> 46              대전광역시 서을 박범계      단수 공천
#> 47            서울특별시 도봉갑 인재근      단수 공천
#> 48                경기도 김포을 박상혁      경선 공천
#> 49                경기도 수원갑 김승원      경선 공천
#> 50            충청북도 제천단양 이후삼      경선 공천
#> 51        경상남도 창원마산회원 하귀남      단수 공천
#> 52              부산광역시 남을 박재호      단수 공천
#> 53                경상남도 거제 문상모      경선 공천
#> 54              전라남도 여수을 김회재      경선 공천
#> 55                대전광역시 동 장철민      경선 공천
#> 56                강원도 원주을 송기헌      단수 공천
#> 57            경기도 안양동안갑 민병덕      경선 공천
#> 58    전라남도 고흥보성장흥강진 김승남      경선 공천
#> 59            인천광역시 연수갑 박찬대      단수 공천
#> 60            부산광역시 사하갑 최인호      단수 공천
#> 61                경기도 파주을   박정      단수 공천
#> 62            서울특별시 강남을 전현희      단수 공천
#> 63            전라남도 나주화순 신정훈      경선 공천
#> 64              충청남도 천안을 박완주      단수 공천
#> 65    경상남도 산청함양거창합천 서필상      단수 공천
#> 66                         <NA>   <NA>           <NA>
#> 67              경기도 남양주병 김용민      전략 공천
#> 68            서울특별시 구로을 윤건영      전략 공천
#> 69                         <NA>   <NA>           <NA>
#> 70                경기도 용인병 정춘숙      경선 공천
#> 71            서울특별시 노원을 우원식      단수 공천
#> 72    경상북도 군위의성청송영덕 강부송      단수 공천
#> 73                  경기도 군포 이학영      경선 공천
#> 74            서울특별시 관악갑 유기홍      경선 공천
#> 75              대구광역시 북을 홍의락      단수 공천
#> 76            부산광역시 중영도 김비오      경선 공천
#> 77              경기도 의왕과천 이소영      전략 공천
#> 78            경기도 성남분당을 김병욱      단수 공천
#> 79                  경기도 이천 김용진      경선 공천
#> 80              경기도 포천가평 이철휘      경선 공천
#> 81            서울특별시 도봉을 오기형      경선 공천
#> 82            경기도 동두천연천 서동욱      경선 공천
#> 83            서울특별시 동작갑 김병기      경선 공천
#> 84          서울특별시 중성동갑 홍익표      단수 공천
#> 85                대구광역시 서 윤선진      단수 공천
#> 86        충청남도 논산계룡금산 김종민      경선 공천
#> 87            서울특별시 마포갑 노웅래      경선 공천
#> 88    경상남도 밀양의령함안창녕 조성환      단수 공천
#> 89            서울특별시 성북갑 김영배      경선 공천
#> 90              경상남도 진주갑 정영훈      경선 공천
#> 91            인천광역시 연수을 정일영      경선 공천
#> 92            부산광역시 사하을 이상호      경선 공천
#> 93          서울특별시 중성동을 박성준      전략 공천
#> 94    강원도 춘천철원화천양구을 정만호      경선 공천
#> 95            서울특별시 강남병 김한규      전략 공천
#> 96              대전광역시 대덕 박영순      경선 공천
#> 97              전라북도 전주병 김성주      단수 공천
#> 98                         <NA>   <NA>           <NA>
#> 99                경기도 수원정 박광온      단수 공천
#> 100                        <NA>   <NA>           <NA>
#> 101             인천광역시 서갑 김교흥      단수 공천
#> 102             부산광역시 수영 강윤경      단수 공천
#> 103           충청남도 서산태안 조한기      단수 공천
#> 104           서울특별시 노원병 김성환      단수 공천
#> 105             부산광역시 기장 최택용      경선 공천
#> 106       인천광역시 중강화옹진 조택상      단수 공천
#> 107               경기도 부천정 서영석      경선 공천
#> 108           서울특별시 관악을 정태호      경선 공천
#> 109                        <NA>   <NA>           <NA>
#> 110               경기도 광주갑 소병훈      경선 공천
#> 111                 강원도 강릉 김경수      단수 공천
#> 112           충청남도 보령서천 나소열      단수 공천
#> 113             부산광역시 연제 김해영      단수 공천
#> 114               경상북도 경산 전상헌      경선 공천
#> 115           서울특별시 강동갑 진선미      단수 공천
#> 116             전라북도 전주을 이상직      경선 공천
#> 117         부산광역시 북강서갑 전재수      단수 공천
#> 118       충청남도 공주부여청양 박수현      단수 공천
#> 119           서울특별시 동작을 이수진      전략 공천
#> 120               울산광역시 동 김태선      경선 공천
#> 121             충청남도 천안갑 문진석      전략 공천
#> 122             부산광역시 서동 이재강      경선 공천
#> 123             경상북도 구미을 김현권      단수 공천
#> 124               경기도 평택갑 홍기원      경선 공천
#> 125           서울특별시 마포을 정청래      단수 공천
#> 126               경기도 고양병 홍정민      전략 공천
#> 127           경상북도 안동예천 이삼걸      단수 공천
#> 128           서울특별시 송파갑 조재희      경선 공천
#> 129           서울특별시 성북을 기동민      단수 공천
#> 130           대구광역시 달서갑 권택흥      단수 공천
#> 131             경상남도 진주을 한경호      단수 공천
#> 132             서울특별시 금천 최기상      전략 공천
#> 133           충청북도 청주흥덕 도종환      단수 공천
#> 134             서울특별시 종로 이낙연      전략 공천
#> 135           서울특별시 은평갑 박주민      단수 공천
#> 136       충청북도 증평진천음성 임호선      단수 공천
#> 137             인천광역시 서을 신동근      단수 공천
#> 138       경상북도 고령성주칠곡 장세호      단수 공천
#> 139           대구광역시 수성갑 김부겸      단수 공천
#> 140           경상남도 창원의창 김기운      경선 공천
#> 141             경기도 의정부갑 오영환      전략 공천
#> 142               경기도 부천갑 김경협      단수 공천
#> 143           충청북도 청주청원 변재일      단수 공천
#> 144           충청북도 청주상당 정정순      경선 공천
#> 145               경기도 광주을 임종성      단수 공천
#> 146               경기도 수원을 백혜련      단수 공천
#> 147           인천광역시 남동갑 맹성규      단수 공천
#> 148           서울특별시 강동을 이해식      경선 공천
#> 149               충청남도 당진 어기구      경선 공천
#> 150             광주광역시 서갑 송갑석      단수 공천
#> 151               대전광역시 중 황운하      경선 공천
#> 152               경기도 용인을 김민기      단수 공천
#> 153             전라북도 익산을 한병도      경선 공천
#> 154             부산광역시 금정 박무성      경선 공천
#> 155           서울특별시 송파을 최재성      단수 공천
#> 156                 경기도 하남 최종윤      경선 공천
#> 157           대구광역시 달서을   허소      경선 공천
#> 158             부산광역시 동래 박성현      단수 공천
#> 159           광주광역시 광산을 민형배      경선 공천
#> 160               울산광역시 중 임동호      경선 공천
#> 161               경상북도 김천 배영애      단수 공천
#> 162             경상남도 양산을 김두관      전략 공천
#> 163           서울특별시 은평을 강병원      경선 공천
#> 164           경기도 안산단원갑 고영인      경선 공천
#> 165           경상북도 영천청도 정우동      단수 공천
#> 166           서울특별시 서초갑 이정근      단수 공천
#> 167           광주광역시 동남갑 윤영덕      경선 공천
#> 168           대구광역시 수성을 이상식      단수 공천
#> 169           서울특별시 광진갑 전혜숙      단수 공천
#> 170           경상남도 창원성산 이흥석      단수 공천
#> 171           서울특별시 강서갑 강선우      경선 공천
#> 172   경상북도 영주영양봉화울진 황재선      경선 공천
#> 173             경기도 의정부을 김민철      경선 공천
#> 174 전라남도 순천광양곡성구례갑 소병철      전략 공천
#> 175             경상북도 구미갑 김철호      경선 공천
#> 176           경기도 안산상록갑 전해철      단수 공천
#> 177               경기도 수원무 김진표      단수 공천
#> 178           경상남도 통영고성 양문석      단수 공천
#> 179           인천광역시 남동을 윤관석      단수 공천
#> 180               경기도 부천병 김상희      단수 공천
#> 181               경기도 시흥갑 문정복      경선 공천
#> 182             경기도 성남중원 윤영찬      경선 공천
#> 183               경기도 평택을 김현정      전략 공천
#> 184               전라남도 목포 김원이      경선 공천
#> 185             경상북도 포항북 오중기      단수 공천
#> 186               경기도 용인정 이탄희      전략 공천
#> 187           경상남도 창원진해 황기철      단수 공천
#> 188             충청남도 아산갑 복기왕      단수 공천
#> 189       인천광역시 동미추홀갑 허종식      단수 공천
#> 190           서울특별시 송파병 남인순      단수 공천
#> 191                 경기도 오산 안민석      단수 공천
#> 192           충청북도 청주서원 이장섭      경선 공천
#> 193           대구광역시 달서병 김대진      단수 공천
#> 194         부산광역시 부산진갑 김영춘      단수 공천
#> 195           전라북도 김제부안 이원택      단수 공천
#> 196             부산광역시 사상 배재정      단수 공천
#> 197             경기도 남양주을 김한정      경선 공천
#> 198               경기도 용인갑 오세영      경선 공천
#> 199           경기도 안산단원을 김남국      전략 공천
#> 200               경기도 부천을   설훈      경선 공천
#> 201           서울특별시 서초을 박경미      경선 공천
#> 202             울산광역시 울주 김영문      단수 공천
#> 203           서울특별시 광진을 고민정      전략 공천
#> 204                        <NA>   <NA>           <NA>
#> 205           서울특별시 강서을 진성준      단수 공천
#> 206           서울특별시 양천갑   황희      단수 공천
#> 207           전라북도 정읍고창 윤준병      단수 공천
#> 208           경기도 안산상록을 김철민      단수 공천
#> 209           서울특별시 강북갑 천준호      경선 공천
#> 210             전라북도 익산갑 김수흥      경선 공천
#> 211               경기도 화성갑 송옥주      경선 공천
#> 212             서울특별시 용산 강태웅      전략 공천
#> 213           광주광역시 광산갑 이용빈      단수 공천
#> 214               경기도 고양정 이용우      전략 공천
#> 215             경기도 성남수정 김태년      단수 공천
#> 216       제주특별자치도 서귀포 위성곤      단수 공천
#> 217             대구광역시 달성 박형룡      경선 공천
#> 218             광주광역시 북을 이형석      경선 공천
#> 219             충청남도 아산을 강훈식      단수 공천
#> 220       인천광역시 동미추홀을 남영희      경선 공천
#> 221             대구광역시 동갑 서재헌      단수 공천
#> 222   충청북도 보은옥천영동괴산 곽상언      경선 공천
#> 223         부산광역시 부산진을 류영진      경선 공천
#> 224             경상남도 김해갑 민홍철      단수 공천
#> 225             광주광역시 서을 양향자      경선 공천
#> 226           인천광역시 계양갑 유동수      단수 공천
#> 227           광주광역시 동남을 이병훈      경선 공천
#> 228       경상남도 창원마산합포 박남현      경선 공천
#> 229       경상남도 사천남해하동 황인성      단수 공천
#> 230             경기도 안양만안 강득구      경선 공천
#> 231               경기도 시흥을 조정식      단수 공천
#> 232       제주특별자치도 제주갑 송재호      전략 공천
#> 233           서울특별시 강서병 한정애      단수 공천
#> 234           서울특별시 양천을 이용선      단수 공천
#> 235           인천광역시 부평갑 이성만      경선 공천
#> 236           경상북도 상주문경 정용운      단수 공천
#> 237             경기도 여주양평 최재관      경선 공천
#> 238   전라남도 담양함평영광장성 이개호      단수 공천
#> 239           서울특별시 강북을 박용진      단수 공천
#> 240                        <NA>   <NA>           <NA>
#> 241               경기도 광명을 양기대      경선 공천
#> 242           충청남도 홍성예산 김학민      경선 공천
#> 243               경기도 화성을 이원욱      단수 공천
#> 244         서울특별시 영등포갑 김영주      단수 공천
#> 245               전라북도 군산 신영대      단수 공천
#> 246             경상남도 양산갑 이재영      전략 공천
#> 247         경상북도 포항남울릉 허대만      단수 공천
#> 248         서울특별시 서대문갑 우상호      단수 공천
#> 249             경기도 남양주갑 조응천      경선 공천
#> 250                 경기도 양주 정성호      단수 공천
#> 251           서울특별시 중랑갑 서영교      경선 공천
#> 252               충청북도 충주 김경욱      단수 공천
#> 253             울산광역시 남갑 심규명      경선 공천
#>                           geometry
#> 1   MULTIPOLYGON (((128.704 35....
#> 2   MULTIPOLYGON (((128.6067 35...
#> 3   MULTIPOLYGON (((126.8484 37...
#> 4   MULTIPOLYGON (((126.9658 37...
#> 5   MULTIPOLYGON (((128.8736 35...
#> 6   MULTIPOLYGON (((127.0404 37...
#> 7   MULTIPOLYGON (((126.7446 37...
#> 8   MULTIPOLYGON (((127.0707 37...
#> 9   MULTIPOLYGON (((127.7848 34...
#> 10  MULTIPOLYGON (((127.1277 36...
#> 11  MULTIPOLYGON (((129.1528 35...
#> 12  MULTIPOLYGON (((129.4077 35...
#> 13  MULTIPOLYGON (((127.3382 36...
#> 14  MULTIPOLYGON (((127.3845 36...
#> 15  MULTIPOLYGON (((126.7245 37...
#> 16  MULTIPOLYGON (((126.7089 37...
#> 17  MULTIPOLYGON (((128.8348 35...
#> 18  MULTIPOLYGON (((126.9435 35...
#> 19  MULTIPOLYGON (((129.1049 35...
#> 20  MULTIPOLYGON (((127.0504 37...
#> 21  MULTIPOLYGON (((126.9063 37...
#> 22  MULTIPOLYGON (((127.3747 34...
#> 23  MULTIPOLYGON (((129.4817 35...
#> 24  MULTIPOLYGON (((127.938 37....
#> 25  MULTIPOLYGON (((127.6416 37...
#> 26  MULTIPOLYGON (((126.9219 37...
#> 27  MULTIPOLYGON (((126.7738 37...
#> 28  MULTIPOLYGON (((127.0525 37...
#> 29  MULTIPOLYGON (((127.0499 35...
#> 30  MULTIPOLYGON (((127.1647 37...
#> 31  MULTIPOLYGON (((127.0803 37...
#> 32  MULTIPOLYGON (((129.3623 35...
#> 33  MULTIPOLYGON (((126.8318 37...
#> 34  MULTIPOLYGON (((127.1534 35...
#> 35  MULTIPOLYGON (((127.2966 36...
#> 36  MULTIPOLYGON (((126.8822 37...
#> 37  MULTIPOLYGON (((127.068 37....
#> 38  MULTIPOLYGON (((127.0786 37...
#> 39  MULTIPOLYGON (((128.6068 35...
#> 40  MULTIPOLYGON (((126.8739 37...
#> 41  MULTIPOLYGON (((127.1861 35...
#> 42  MULTIPOLYGON (((129.1437 35...
#> 43  MULTIPOLYGON (((126.9583 33...
#> 44  MULTIPOLYGON (((127.0785 37...
#> 45  MULTIPOLYGON (((127.415 36....
#> 46  MULTIPOLYGON (((127.3618 36...
#> 47  MULTIPOLYGON (((127.0464 37...
#> 48  MULTIPOLYGON (((126.5503 37...
#> 49  MULTIPOLYGON (((127.0176 37...
#> 50  MULTIPOLYGON (((128.4419 36...
#> 51  MULTIPOLYGON (((128.6069 35...
#> 52  MULTIPOLYGON (((129.1272 35...
#> 53  MULTIPOLYGON (((128.6248 34...
#> 54  MULTIPOLYGON (((127.7238 34...
#> 55  MULTIPOLYGON (((127.489 36....
#> 56  MULTIPOLYGON (((128.1141 37...
#> 57  MULTIPOLYGON (((126.951 37....
#> 58  MULTIPOLYGON (((127.2771 34...
#> 59  MULTIPOLYGON (((126.6855 37...
#> 60  MULTIPOLYGON (((128.9713 35...
#> 61  MULTIPOLYGON (((126.7994 37...
#> 62  MULTIPOLYGON (((127.111 37....
#> 63  MULTIPOLYGON (((126.5827 34...
#> 64  MULTIPOLYGON (((127.1202 36...
#> 65  MULTIPOLYGON (((127.8642 35...
#> 66  MULTIPOLYGON (((127.3613 36...
#> 67  MULTIPOLYGON (((127.3453 37...
#> 68  MULTIPOLYGON (((126.8954 37...
#> 69  MULTIPOLYGON (((125.1028 34...
#> 70  MULTIPOLYGON (((127.0832 37...
#> 71  MULTIPOLYGON (((127.0703 37...
#> 72  MULTIPOLYGON (((129.3805 36...
#> 73  MULTIPOLYGON (((126.9539 37...
#> 74  MULTIPOLYGON (((126.9817 37...
#> 75  MULTIPOLYGON (((128.5728 35...
#> 76  MULTIPOLYGON (((129.0817 35...
#> 77  MULTIPOLYGON (((126.9712 37...
#> 78  MULTIPOLYGON (((127.1317 37...
#> 79  MULTIPOLYGON (((127.6007 37...
#> 80  MULTIPOLYGON (((127.1809 37...
#> 81  MULTIPOLYGON (((127.0333 37...
#> 82  MULTIPOLYGON (((126.8955 37...
#> 83  MULTIPOLYGON (((126.916 37....
#> 84  MULTIPOLYGON (((127.0628 37...
#> 85  MULTIPOLYGON (((128.5572 35...
#> 86  MULTIPOLYGON (((127.1513 36...
#> 87  MULTIPOLYGON (((126.9564 37...
#> 88  MULTIPOLYGON (((128.4742 35...
#> 89  MULTIPOLYGON (((127.0245 37...
#> 90  MULTIPOLYGON (((128.2412 35...
#> 91  MULTIPOLYGON (((126.6678 37...
#> 92  MULTIPOLYGON (((128.9727 35...
#> 93  MULTIPOLYGON (((127.0257 37...
#> 94  MULTIPOLYGON (((127.9556 37...
#> 95  MULTIPOLYGON (((127.0566 37...
#> 96  MULTIPOLYGON (((127.4276 36...
#> 97  MULTIPOLYGON (((127.0704 35...
#> 98  MULTIPOLYGON (((127.2531 36...
#> 99  MULTIPOLYGON (((127.0834 37...
#> 100 MULTIPOLYGON (((127.9285 37...
#> 101 MULTIPOLYGON (((126.6948 37...
#> 102 MULTIPOLYGON (((129.1156 35...
#> 103 MULTIPOLYGON (((126.2142 36...
#> 104 MULTIPOLYGON (((127.0716 37...
#> 105 MULTIPOLYGON (((129.2529 35...
#> 106 MULTIPOLYGON (((125.9826 37...
#> 107 MULTIPOLYGON (((126.7987 37...
#> 108 MULTIPOLYGON (((126.9525 37...
#> 109 MULTIPOLYGON (((126.9308 33...
#> 110 MULTIPOLYGON (((127.252 37....
#> 111 MULTIPOLYGON (((129.0567 37...
#> 112 MULTIPOLYGON (((126.6032 35...
#> 113 MULTIPOLYGON (((129.0673 35...
#> 114 MULTIPOLYGON (((128.8752 35...
#> 115 MULTIPOLYGON (((127.1604 37...
#> 116 MULTIPOLYGON (((127.1235 35...
#> 117 MULTIPOLYGON (((129.0515 35...
#> 118 MULTIPOLYGON (((126.8903 36...
#> 119 MULTIPOLYGON (((126.9821 37...
#> 120 MULTIPOLYGON (((129.4381 35...
#> 121 MULTIPOLYGON (((127.401 36....
#> 122 MULTIPOLYGON (((129.016 35....
#> 123 MULTIPOLYGON (((128.4788 36...
#> 124 MULTIPOLYGON (((127.0875 36...
#> 125 MULTIPOLYGON (((126.9341 37...
#> 126 MULTIPOLYGON (((126.7761 37...
#> 127 MULTIPOLYGON (((128.3618 36...
#> 128 MULTIPOLYGON (((127.1224 37...
#> 129 MULTIPOLYGON (((127.0408 37...
#> 130 MULTIPOLYGON (((128.5307 35...
#> 131 MULTIPOLYGON (((128.1308 35...
#> 132 MULTIPOLYGON (((126.9152 37...
#> 133 MULTIPOLYGON (((127.3898 36...
#> 134 MULTIPOLYGON (((126.969 37....
#> 135 MULTIPOLYGON (((126.9131 37...
#> 136 MULTIPOLYGON (((127.6245 36...
#> 137 MULTIPOLYGON (((126.5683 37...
#> 138 MULTIPOLYGON (((128.3588 35...
#> 139 MULTIPOLYGON (((128.7233 35...
#> 140 MULTIPOLYGON (((128.6939 35...
#> 141 MULTIPOLYGON (((127.0504 37...
#> 142 MULTIPOLYGON (((126.7917 37...
#> 143 MULTIPOLYGON (((127.5051 36...
#> 144 MULTIPOLYGON (((127.5652 36...
#> 145 MULTIPOLYGON (((127.3636 37...
#> 146 MULTIPOLYGON (((127.001 37....
#> 147 MULTIPOLYGON (((126.7384 37...
#> 148 MULTIPOLYGON (((127.1458 37...
#> 149 MULTIPOLYGON (((126.4529 37...
#> 150 MULTIPOLYGON (((126.8559 35...
#> 151 MULTIPOLYGON (((127.4402 36...
#> 152 MULTIPOLYGON (((127.1498 37...
#> 153 MULTIPOLYGON (((126.9942 35...
#> 154 MULTIPOLYGON (((129.1103 35...
#> 155 MULTIPOLYGON (((127.1211 37...
#> 156 MULTIPOLYGON (((127.1758 37...
#> 157 MULTIPOLYGON (((128.584 35....
#> 158 MULTIPOLYGON (((129.0665 35...
#> 159 MULTIPOLYGON (((126.8408 35...
#> 160 MULTIPOLYGON (((129.354 35....
#> 161 MULTIPOLYGON (((128.0516 35...
#> 162 MULTIPOLYGON (((129.1945 35...
#> 163 MULTIPOLYGON (((126.9173 37...
#> 164 MULTIPOLYGON (((126.8057 37...
#> 165 MULTIPOLYGON (((128.6913 35...
#> 166 MULTIPOLYGON (((127.0022 37...
#> 167 MULTIPOLYGON (((126.8993 35...
#> 168 MULTIPOLYGON (((128.6542 35...
#> 169 MULTIPOLYGON (((127.1138 37...
#> 170 MULTIPOLYGON (((128.7229 35...
#> 171 MULTIPOLYGON (((126.8585 37...
#> 172 MULTIPOLYGON (((128.7434 36...
#> 173 MULTIPOLYGON (((127.0832 37...
#> 174 MULTIPOLYGON (((127.5192 34...
#> 175 MULTIPOLYGON (((128.3826 36...
#> 176 MULTIPOLYGON (((126.8984 37...
#> 177 MULTIPOLYGON (((127.0662 37...
#> 178 MULTIPOLYGON (((128.4361 34...
#> 179 MULTIPOLYGON (((126.761 37....
#> 180 MULTIPOLYGON (((126.8001 37...
#> 181 MULTIPOLYGON (((126.8237 37...
#> 182 MULTIPOLYGON (((127.1944 37...
#> 183 MULTIPOLYGON (((127.0827 36...
#> 184 MULTIPOLYGON (((126.2964 34...
#> 185 MULTIPOLYGON (((129.3703 36...
#> 186 MULTIPOLYGON (((127.0899 37...
#> 187 MULTIPOLYGON (((128.6719 35...
#> 188 MULTIPOLYGON (((126.9461 36...
#> 189 MULTIPOLYGON (((126.6503 37...
#> 190 MULTIPOLYGON (((127.1577 37...
#> 191 MULTIPOLYGON (((127.1009 37...
#> 192 MULTIPOLYGON (((127.4834 36...
#> 193 MULTIPOLYGON (((128.5682 35...
#> 194 MULTIPOLYGON (((129.0494 35...
#> 195 MULTIPOLYGON (((126.2458 35...
#> 196 MULTIPOLYGON (((128.9877 35...
#> 197 MULTIPOLYGON (((127.1438 37...
#> 198 MULTIPOLYGON (((127.1887 37...
#> 199 MULTIPOLYGON (((126.4693 37...
#> 200 MULTIPOLYGON (((126.7704 37...
#> 201 MULTIPOLYGON (((126.9963 37...
#> 202 MULTIPOLYGON (((129.3465 35...
#> 203 MULTIPOLYGON (((127.0923 37...
#> 204 MULTIPOLYGON (((128.7476 37...
#> 205 MULTIPOLYGON (((126.827 37....
#> 206 MULTIPOLYGON (((126.8735 37...
#> 207 MULTIPOLYGON (((126.4823 35...
#> 208 MULTIPOLYGON (((126.8745 37...
#> 209 MULTIPOLYGON (((127.0385 37...
#> 210 MULTIPOLYGON (((126.9414 35...
#> 211 MULTIPOLYGON (((126.5399 37...
#> 212 MULTIPOLYGON (((126.9825 37...
#> 213 MULTIPOLYGON (((126.8004 35...
#> 214 MULTIPOLYGON (((126.751 37....
#> 215 MULTIPOLYGON (((127.1178 37...
#> 216 MULTIPOLYGON (((126.27 33.1...
#> 217 MULTIPOLYGON (((128.5041 35...
#> 218 MULTIPOLYGON (((126.8757 35...
#> 219 MULTIPOLYGON (((127.0486 36...
#> 220 MULTIPOLYGON (((126.6949 37...
#> 221 MULTIPOLYGON (((128.6186 35...
#> 222 MULTIPOLYGON (((127.8494 36...
#> 223 MULTIPOLYGON (((129.0633 35...
#> 224 MULTIPOLYGON (((128.8972 35...
#> 225 MULTIPOLYGON (((126.8322 35...
#> 226 MULTIPOLYGON (((126.7342 37...
#> 227 MULTIPOLYGON (((126.9943 35...
#> 228 MULTIPOLYGON (((128.4933 35...
#> 229 MULTIPOLYGON (((128.0633 34...
#> 230 MULTIPOLYGON (((126.9315 37...
#> 231 MULTIPOLYGON (((126.7913 37...
#> 232 MULTIPOLYGON (((126.1496 33...
#> 233 MULTIPOLYGON (((126.8635 37...
#> 234 MULTIPOLYGON (((126.8525 37...
#> 235 MULTIPOLYGON (((126.7096 37...
#> 236 MULTIPOLYGON (((128.1724 36...
#> 237 MULTIPOLYGON (((127.7464 37...
#> 238 MULTIPOLYGON (((126.3571 35...
#> 239 MULTIPOLYGON (((127.022 37....
#> 240 MULTIPOLYGON (((128.4126 37...
#> 241 MULTIPOLYGON (((126.8958 37...
#> 242 MULTIPOLYGON (((126.4408 36...
#> 243 MULTIPOLYGON (((127.1523 37...
#> 244 MULTIPOLYGON (((126.9102 37...
#> 245 MULTIPOLYGON (((126.5333 35...
#> 246 MULTIPOLYGON (((129.0268 35...
#> 247 MULTIPOLYGON (((131.8703 37...
#> 248 MULTIPOLYGON (((126.9621 37...
#> 249 MULTIPOLYGON (((127.2582 37...
#> 250 MULTIPOLYGON (((127.0021 37...
#> 251 MULTIPOLYGON (((127.0958 37...
#> 252 MULTIPOLYGON (((128.0385 36...
#> 253 MULTIPOLYGON (((129.3129 35...
코드
xfun::embed_file('data/precinct_nomination.xlsx')
Download precinct_nomination.xlsx

5.2 지도 시각화

민주당 후보와 공천유형에 대한 데이터 준비를 한 후에 공간정보 시각화를 위해서 지도데이터와 매핑 작업을 수행한 후에 전국과 수도권 지도를 결합시켜 시각화 결과물을 마무리한다.

코드
extrafont::loadfonts()

precinct_nomination_tbl <- readxl::read_excel("data/precinct_nomination.xlsx") 

precinct_nomination_sf <- left_join(precinct |> select(SGG_Code, geometry), 
                                    precinct_nomination_tbl, by = "SGG_Code")


nomination_type_gg <- ggplot() +
  geom_sf(data = precinct_nomination_sf, 
          aes(geometry = geometry, fill = 공천_유형)) +
  theme_void(base_family = "MaruBuri") +
  theme(legend.position = "left") +
  scale_fill_manual(values = c("경선 공천" = "gray90",
                               "단수 공천" = "red",
                               "전략 공천" = "pink",
                               "청년 경선 공천" = "black")) +
  labs(title = "대한민국 제21대 국회의원 선거 더불어민주당 후보",
       caption = "자료출처: 위키백과")

  
metro_bb <- precinct_nomination_sf |> 
  filter(SGG_1 == "경기") |> st_bbox()

metro_nomination_type_gg <- ggplot() +
  geom_sf(data = precinct_nomination_sf |> filter(SGG_1 %in% c("서울", "경기")), 
          aes(geometry = geometry, fill = 공천_유형)) +
  theme_void(base_family = "MaruBuri") + 
  coord_sf(xlim = c(metro_bb['xmin'], metro_bb['xmax']),
           ylim = c(metro_bb['ymin'], metro_bb['ymax']), expand = FALSE) +
  theme(legend.position = "none") +
  scale_fill_manual(values = c("경선 공천" = "gray90",
                               "단수 공천" = "red",
                               "전략 공천" = "pink",
                               "청년 경선 공천" = "black")) +
    ggrepel::geom_text_repel(
      data = precinct_nomination_sf |> filter(SGG_1 %in% c("서울", "경기")) |> 
        mutate(SGG_3 = glue::glue("{ifelse(str_detect(공천_유형,'단수'), SGG_3, '')}")),
        aes(label = SGG_3, geometry = geometry), stat = "sf_coordinates", 
        min.segment.length = 1, size = 4, max.overlaps = Inf
    ) 

library(patchwork)

nomination_type_final <- nomination_type_gg + metro_nomination_type_gg +
  plot_layout(widths = c(1, 2))

nomination_type_final

코드

# ragg::agg_jpeg("images/민주당_후보_공천.jpeg", 
#               width = 10, height = 7, units = "in", res = 600)
# nomination_type_final
# dev.off()

6 카토그램

출처: Mapping UN Votes on a hex grid

면적중심의 지도보다 인구비례로 작성된 지도가 훨씬 가독성이 좋고 상황을 파악하기 용이하다. 이를 위해서 면적을 인구비례로 지도를 다시 제작한 후 결과값을 시각화한다.

6.1 전국

코드
library(geogrid)
library(ggrepel)

precinct_cells <-  calculate_grid(precinct, 0.1, 'hexagonal')
precinct_hex <- assign_polygons(precinct, precinct_cells)

precinct_hex |> 
  write_rds("data/precinct_hex.rds")
코드
precinct_hex <- 
  read_rds("data/precinct_hex.rds")

precinct_hex |> 
  ggplot() +
    geom_sf()

6.2 서울

코드
sf_use_s2(FALSE)

centroids <- precinct |> 
  st_centroid() |> 
  st_coordinates() %>% 
  as_tibble()

precinct_centroids <- precinct |> 
  st_drop_geometry() |> 
  as_tibble() |> 
  bind_cols(centroids)

precinct_centroids
#> # A tibble: 253 × 6
#>    SGG_Code SGG_1 SGG_2                               SGG_3              X     Y
#>       <int> <chr> <chr>                               <chr>          <dbl> <dbl>
#>  1  2270202 대구  대구광역시 동구을                   대구 동구을     129.  35.9
#>  2  2270101 대구  대구광역시 중구남구                 대구 중구남구   129.  35.8
#>  3  2412001 경기  경기도 고양시갑                     경기 고양갑     127.  37.7
#>  4  2411002 경기  경기도 안양시동안구을               경기 안양동안…  127.  37.4
#>  5  2480802 경남  경상남도 김해시을                   경남 김해을     129.  35.2
#>  6  2410301 경기  경기도 수원시병                     경기 수원병     127.  37.3
#>  7  2280702 인천  인천광역시 계양구을                 인천 계양을     127.  37.6
#>  8  2110601 서울  서울특별시 동대문구갑               서울 동대문갑   127.  37.6
#>  9  2460702 전남  전라남도 순천시광양시곡성군구례군을 전남 순천광양…  127.  35.2
#> 10  2440103 충남  충청남도 천안시병                   충남 천안병     127.  36.7
#> # ℹ 243 more rows
코드
library(geogrid)
library(ggrepel)

seoul_precinct <- precinct |> filter(SGG_1 == "서울")

seoul_precinct_cells <-  calculate_grid(shape=seoul_precinct, grid_type='hexagonal')
seoul_precinct_hex <- assign_polygons(seoul_precinct, seoul_precinct_cells)

seoul_centroids_tbl <- seoul_precinct_hex |> 
  st_centroid() |> 
  st_coordinates() |> 
  as_tibble() |> 
  bind_cols(seoul_precinct_hex |> st_drop_geometry()) |> 
  mutate(SGG_3 = str_remove(SGG_3, "서울\\s+"))

seoul_precinct_hex |>
  st_buffer(0.001) |> 
  st_union() %>%
  st_boundary() %>%
  ggplot() +
    geom_sf( lwd = 2 ) +
    geom_sf(data = seoul_precinct_hex) +
    geom_text(
      data = seoul_centroids_tbl,
        aes(x = X, y = Y, label = SGG_3), size = 4
    )

6.3 수도권

코드
metro_precinct <- precinct |> filter(SGG_1 %in% c("서울", "경기", "인천"))

metro_precinct_cells <-  calculate_grid(shape = metro_precinct, grid_type='hexagonal')
metro_precinct_hex <- assign_polygons(metro_precinct, metro_precinct_cells)


metro_centroids_tbl <- metro_precinct_hex |> 
  st_centroid() |> 
  st_coordinates() |> 
  as_tibble() |> 
  bind_cols(metro_precinct_hex |> st_drop_geometry()) |> 
  mutate(SGG_3 = str_remove(SGG_3, "(서울)|(경기)|(인천)\\s+"))

seoul_boundary_hex <- metro_precinct_hex |>
  filter(SGG_1 == "서울") |> 
  st_buffer(0.01) |> 
  st_union() %>%
  st_boundary() 

metro_precinct_hex |>
  st_buffer(0.001) |> 
  st_union() %>%
  st_boundary() %>%
  ggplot() +
    geom_sf( lwd = 2 ) +
    geom_sf(data = metro_precinct_hex, fill = "transparent") +
    geom_sf(data = seoul_boundary_hex, color = "blue", fill = "skyblue", lwd = 3) +
    geom_text(
      data = metro_centroids_tbl,
        aes(x = X, y = Y, label = SGG_3), size = 3
    )