In statkclee/krvotes: Korean Election Data

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

한국 선거 득표 데이터

krvotes 팩키지 개발 목표는 대한민국 선거 득표 데이터를 명령어 하나로 바로 분석에 넘어갈 수 있도록 정제하여 깨끗한 형태 데이터로 제공하는 것입니다.

• 2016년 국회의원 선거
• 2017년 대통령 선거
• 2018년 지방선거
  • 시도지사
  • 구시군의 장
• 국회의원 지역구 선거구 구역표

설치방법

GitHub 웹사이트에서 다음 명령어를 통해 개발버전 krvotes 팩키지를 설치할 수 있다.

# install.packages('remotes')
remotes::install_github("statkclee/krvotes")

국회의원 선거 - 2016

# load package
suppressMessages(library(krvotes))
suppressMessages(library(tidyverse))

# 국회의원 선거 (2016)
congress_df <- congress_2018

# 지역구: 경기도 성남시 분당구 을

congress_df %>%
    filter(sido == "경기" & precinct == "성남시분당구을") %>%
    pull(data_clean) %>% .[[1]] %>%
    summarise(`더불어민주당 김병욱` = sum(`더불어민주당 김병욱`),
              `새누리당 전하진`     = sum(`새누리당 전하진`),
              `국민의당 윤은숙`     = sum(`국민의당 윤은숙`),
              `무소속 임태희`       = sum(`무소속 임태희`))

대통령 선거 - 2017

# read presidential votes 2018 and assign it to president_df
president_tbl <- president_2017
# check the structure of the object
str(object = president_tbl)

지방선거 선거 - 2018

시도지사 득표

local_2018_df <- local_2018

jeju_df <- local_2018_df %>%
  filter(str_detect(`시도명`, "제주")) %>%
  pull(data_clean) %>%
  .[[1]]

jeju_df %>%
  summarize(`문대림` = sum(`더불어민주당 문대림`))

시군구장 득표

local_sigungu_df <- local_sigungu_2018

changwon_df <- local_sigungu_df %>% 
  filter(str_detect(`선거구명`, "창원")) %>% 
  select(data_clean) %>% 
  unnest()

changwon_df %>% 
  filter(str_detect(`구시군명`, "성산")) %>% 
  summarise(`허성무` = sum(`더불어민주당 허성무`),
            `조진래` = sum(`자유한국당 조진래`),
            `정규헌` = sum(`바른미래당 정규헌`),
            `석영철` = sum(`민중당 석영철`),
            `안상수` = sum(`무소속 안상수`),
            `이기우` = sum(`무소속 이기우`))

• 중앙선거관리위원회 - 선거통계시스템

역대선거 → 지방선거 → 제7회 → 구시군의 장선거 → 경상남도 → 창원시 → 창원시성산구

| 후보 | 득표수 | |---------------------|---------| | 더불어민주당 허성무 | 68,023 | | 자유한국당 조진래 | 29,669 | | 바른미래당 정규헌 | 3,202 | | 민중당 석영철 | 4,139 | | 무소속 안상수 | 16,282 | | 무소속 이기우 | 2,782 |

국회의원 선거구 구역표

통계청 통계분류포털 → 행정구역분류 → 자료실로 가면 행정구역코드표를 구할 수 있고 이것을 중앙선거관리위원회 제20대 국회의원선거 국회의원지역선거구구역표와 대조 작업을 통해 국회의원 선거구 구역표를 분석이 가능한 데이터프레임으로 만들 수 있다.

precinct_df <- precinct

glimpse(precinct_df)

statkclee/krvotes documentation built on Oct. 11, 2021, 6:54 a.m.