added 총선 판세

_quarto.yml

@@ -136,6 +136,8 @@ website:
             text: "비례 국회의원"
           - href: best_matches.qmd
             text: "최고 관심 격돌"
+          - href: difference.qmd
+            text: "제20대 vs 제21대"            
 
 
 format:

difference.qmd

@@ -0,0 +1,208 @@
+---
+title: "지도제작 대회"
+subtitle: "제20대 vs 제21대"
+description: |
+  제20대 총선과 제21대 총선 차이를 살펴보자.
+author:
+  - name: 이광춘
+    url: https://www.linkedin.com/in/kwangchunlee/
+    affiliation: 한국 R 사용자회
+    affiliation-url: https://github.com/bit2r
+title-block-banner: true
+format:
+  html:
+    theme: flatly
+    code-fold: true
+    code-overflow: wrap
+    toc: true
+    toc-depth: 3
+    toc-title: 목차
+    number-sections: true
+    highlight-style: github    
+    self-contained: false
+    default-image-extension: jpg
+filters:
+   - lightbox
+lightbox: auto
+link-citations: true
+knitr:
+  opts_chunk: 
+    eval: true
+    message: false
+    warning: false
+    collapse: true
+    comment: "#>" 
+    R.options:
+      knitr.graphics.auto_pdf: true
+editor_options: 
+  chunk_output_type: console
+---
+
+# 데이터셋
+
+## 제20대 총선
+
+```{r}
+library(tidyverse)
+library(testthat)
+library(krvote)
+
+vote_2016_tbl <- krvote::general_2016 |> 
+  unnest(data) |> 
+  mutate(구분 = case_when(str_detect(구분, "[가-힣]+") ~ 구분,
+                         TRUE ~ iconv(구분, "CP949", "UTF-8"))) |> 
+  filter(!구분 %in% c("선거인수", "투표수", "무표투표수", "기권수")) |> 
+  mutate(정당 = case_when(str_detect(구분, "더불어민주당") ~ "민주당",
+                          str_detect(구분, "새누리당") ~ "국민의힘",
+                          구분 == "계" ~ "합계",
+                          TRUE ~ "그외정당")) |>
+  separate(선거구, into = c("선거구", "시군구명"), sep = "_") |> 
+  group_by(시도, 선거구, 정당) |> 
+  summarise(득표수 = sum(사람수)) |> 
+  ungroup() |> 
+  pivot_wider(names_from = 정당, values_from = 득표수) |> 
+  mutate(국힘_득표율 = 국민의힘 / 합계,
+         민주_득표율 = 민주당 / 합계)  |> 
+  mutate(차이 = 민주_득표율 - 국힘_득표율) |> 
+  mutate(권역 = case_when(시도 %in% c("서울", "인천", "경기") ~ "수도권",
+                        시도 %in% c("부산", "울산", "경남") ~ "부울경",
+                        시도 %in% c("대구", "경북") ~ "대구경북",
+                        시도 %in% c("강원", "제주") ~ "강원제주",
+                        시도 %in% c("대전", "충남", "충북", "세종") ~ "대전충청세종",
+                        시도 %in% c("광주", "전남", "전북") ~ "광주전라")) |> 
+  mutate(선거 = "제20대")
+```
+
+## 제21대 총선
+
+```{r}
+vote_2020_tbl <- krvote::general_2020 |> 
+  unnest(data) |> 
+  mutate(구분 = case_when(str_detect(구분, "[가-힣]+") ~ 구분,
+                         TRUE ~ iconv(구분, "CP949", "UTF-8"))) |> 
+  filter(!구분 %in% c("선거인수", "투표수", "무표투표수", "기권수")) |> 
+  mutate(정당 = case_when(str_detect(구분, "더불어민주당") ~ "민주당",
+                          str_detect(구분, "미래통합당") ~ "국민의힘",
+                          구분 == "계" ~ "합계",
+                          TRUE ~ "그외정당")) |>
+  separate(선거구, into = c("선거구", "시군구명"), sep = "_") |> 
+  group_by(시도, 선거구, 정당) |> 
+  summarise(득표수 = sum(사람수)) |> 
+  ungroup() |> 
+  pivot_wider(names_from = 정당, values_from = 득표수) |> 
+  mutate(국힘_득표율 = 국민의힘 / 합계,
+         민주_득표율 = 민주당 / 합계)  |> 
+  mutate(차이 = 민주_득표율 - 국힘_득표율) |> 
+  mutate(권역 = case_when(시도 %in% c("서울", "인천", "경기") ~ "수도권",
+                        시도 %in% c("부산", "울산", "경남") ~ "부울경",
+                        시도 %in% c("대구", "경북") ~ "대구경북",
+                        시도 %in% c("강원", "제주") ~ "강원제주",
+                        시도 %in% c("대전", "충남", "충북", "세종") ~ "대전충청세종",
+                        시도 %in% c("광주", "전남", "전북") ~ "광주전라")) |> 
+    mutate(선거 = "제21대")
+
+```
+
+## 결합
+
+```{r}
+vote_tbl <- bind_rows(vote_2016_tbl, vote_2020_tbl)
+
+```
+
+
+
+## 산점도
+
+```{r}
+vote_diff <- full_join(vote_2016_tbl |> select(권역, 시도, 선거구, 득표차20 = 차이), 
+          vote_2020_tbl |> select(권역, 시도, 선거구, 득표차21 = 차이), 
+          by = c("시도", "선거구", "권역")) 
+
+vote_diff |>
+  ggplot(aes(x = 득표차20, y = 득표차21, color = 권역)) +
+    geom_point() +
+    geom_abline(intercept = 0, slope = 1) 
+  
+```
+
+
+# 시각화
+
+## 총선전체   
+
+```{r}
+library(ggrepel)
+
+gangseo_tbl <- vote_tbl |> 
+  filter(시도 == "서울",
+         str_detect(선거구, "강서구(갑|을|병)"))  
+  
+
+full_diff_g <- vote_tbl |>
+  ggplot(aes(x = 차이)) +
+    geom_histogram(bins = 20, fill = "skyblue", color = "white") +
+    geom_density(aes(y = ..density.. * 0.03 * (nrow(vote_tbl)))) +  
+    facet_wrap(~선거, ncol = 1) +
+    theme_korean() +
+    theme(legend.position = "none",
+          strip.text = element_text(size = 15)) +
+    geom_vline(xintercept = 0, color = "red", size = 0.3, linetype = 2) +
+    labs(title = "민주당과 국민의힘 득표율 차이 분포", 
+         subtitle = "2016년과 2020년 총선 민주당과 국민의힘 득표율 차이 분포", 
+         x = "민주당 - 국민의힘 득표율 차이", 
+         y = "선거구수") +
+    scale_x_continuous(breaks = seq(-1, 1, 0.2), 
+                       labels = scales::percent_format(accuracy = 1)) +
+    geom_vline(data = gangseo_tbl, aes(xintercept = 차이, color = 선거구)) +
+    geom_text_repel(data = gangseo_tbl, 
+              aes(x = 차이, y = 35, label = 선거구, color = 선거구, size = 1.5))
+
+full_diff_g
+
+ragg::agg_jpeg("images/총선득표차_분포.jpeg",
+               width = 10, height = 7, units = "in", res = 600)
+full_diff_g
+dev.off()
+
+```
+
+
+## 군역별
+
+```{r}
+
+
+region_diff_g <- vote_tbl |>
+  mutate(권역 = case_when(시도 %in% c("서울", "인천", "경기") ~ "수도권",
+                        시도 %in% c("부산", "울산", "경남") ~ "부울경",
+                        시도 %in% c("대구", "경북", "광주", "전남", "전북") ~ "광주전라/대구경북",
+                        시도 %in% c("대전", "충남", "충북", "세종", "강원", "제주") ~ "대전충청세종강원제주")) |>   
+  mutate(권역 = factor(권역, levels = c("수도권", "부울경", "대전충청세종강원제주", "광주전라/대구경북"))) |>
+  ggplot(aes(x = 차이)) +
+  geom_histogram(bins = 20, fill = "skyblue", color = "white") +
+  # geom_density(aes(y = ..density.. * 0.02 * (nrow(vote_tbl)))) +  
+  facet_grid(권역~선거, scales = "fixed") +
+  theme_korean() +
+  theme(legend.position = "none",
+        strip.text = element_text(size = 10)) +
+  geom_vline(xintercept = 0, color = "red", size = 0.3, linetype = 2) +
+  labs(title = "권역별 민주당과 국민의힘 득표율 차이 분포", 
+       subtitle = "2016년과 2020년 총선 민주당과 국민의힘 득표율 차이 분포", 
+       x = "민주당 - 국민의힘 득표율 차이", 
+       y = "선거구수") +
+  scale_x_continuous(breaks = seq(-1, 1, 0.2), 
+                     labels = scales::percent_format(accuracy = 1)) +
+  geom_vline(data = gangseo_tbl, aes(xintercept = 차이, color = 선거구)) +
+  geom_text_repel(data = gangseo_tbl, 
+                  aes(x = 차이, y = 35, label = 선거구, color = 선거구, size = 1.0))
+
+region_diff_g
+
+ragg::agg_jpeg("images/총선득표차_권역별분포.jpeg",
+               width = 10, height = 7, units = "in", res = 600)
+region_diff_g
+dev.off()
+
+```
+

docs/best_matches.html

@@ -220,8 +220,8 @@
  <span class="dropdown-text">한국영화</span></a>
   </li>  
         <li>
-    <a class="dropdown-item" href="./dashboards.html">
- <span class="dropdown-text">쿼토 대쉬보드</span></a>
+    <a class="dropdown-item" href="./dashboards_quakes.html">
+ <span class="dropdown-text">대쉬보드 R</span></a>
   </li>  
     </ul>
 </li>
@@ -353,6 +353,10 @@
         <li>
     <a class="dropdown-item" href="./best_matches.html">
  <span class="dropdown-text">최고 관심 격돌</span></a>
+  </li>  
+        <li>
+    <a class="dropdown-item" href="./bundang.qmd">
+ <span class="dropdown-text">제20대vs제21대</span></a>
   </li>  
     </ul>
 </li>