[Rstudio] 의회 다이어그램 with 국회의원 선거 의석 수 결과

핀란드 의회

Pixabay로부터 입수된 Marja Mäkelä님의 이미지 입니다.

---

제22대 국회의원 선거(2024.4.1)가 끝났다. 더불어민주당(더불어민주연합 14석 포함)이 총 175석, 국민의힘(국민의미래 18석 포함) 108석, 조국혁신당이 12석, 개혁신당 (비례 2석 포함) 3석, 새로운미래 1석, 진보당 1석을 차지하였다. 범야권이 192석을 차지하였다. 제20대, 21대, 22대 국회의원 선걱 결과. 각 당의 의석 수를 geom_parliament 를 사용하여 그려 보았다. 당명과 의석수의 데이터를 만들면, 의회 의석 배치 모양의 그래프를 그릴 수 있다.

---

[ geom_parliament  ]

"geom_parliament"는 ggpol 패키지의 한 요소로, ggplot2의 geom 기능을 확장하여 의회 형식의 시각화를 만들 수 있게 해준다. 이는 국회나 의회의 선거 결과나 의석 배분을 시각적으로 표시하거나 비교하는 그래프를 만들 때 유용하다.

이 기능을 사용하면 의회의 의석을 나타내는 그래프를 생성할 수 있다. 각 정당 또는 그룹의 의석 수를 나타내는 다양한 색상의 막대를 표시하여 시각적으로 파악할 수 있다. 또한 각 정당 또는 그룹의 이름을 그래프에 추가하여 더욱 명확하게 파악할 수 있다.

---

[ 데이터 : 국회의원 선거 의석 수 ]

우리나라 국회의원 의석 수는 19대(2012년) 이후, 300석이다. (세종특별자치시 분구로 1석 증가)
- 13대(1988년)에서 18대(2008년) : 299석 (12대 : 276석에서 23석 증가)
-  단, 16대(2000년)은 273석 (경제위기 이후, 사회 전반의 구조조정 영향)
- 선거 당시 정치 상황에 따라 변동, 최소 175석 (6대)에서 최대 300석 (19대)
-  1948년 제헌국회는 200명이었고, 6대(1963년)와 7대(1967년)는 175석
    (5대 291석 (양원제로 하원(민의원) 233석, 상원(참의원) 58석)에서,
     5.16 군사정변 후, 단원제로 복귀하며 축소, 전국구(비례대표제) 도입,
     정권을 잡은 군부의 입법부 세력 약화 목적)
- 1972년 10월 유신, 전국구 대신 유신정우회를 만들어 대통령이 국회 장악
    (9대(1973년), 10대(1978년))
-  11대(1981년) 유신정우회 폐지되고, 전국구 부활

[ 데이터 : 2016년 제 20대 국회의원 선거 결과 ]

정당	지역구	비례대표	합계
더불어민주당	110	13	123
새누리당	105	17	122
국민의당	25	13	38
정의당	2	4	6
무소속	11		11
합계	253	47	300

[ 데이터 : 2020년 제 21대 국회의원 선거 결과 ]

정당	지역구	비례대표	합계
더불어민주당, 더불어시민당	163	17	180
미래통합당, 미래한국당	84	19	103
정의당	1	5	6
국민의당	0	3	3
열린민주당	0	3	3
무소속	5		5
합계	253	47	300

무소속 당선자 : 인천 동구미추홀구을 윤상현, 강원 강릉 권선동, 대구 수성을 홍준표, 경남 산청-함양-거창-합천 김태호,

전북 남원-임실-순창 이용호

무소속 당선 후, 복당한 것을 고려하면, 미래통합당,미래한국당 103명 + 무소속 4명 = 107명

 -  이용호(20대 국민의당, 21대 무소속)는 당선 직후 더불어민주당 복당하겠다고 했으나,
    복당이 지연(김대중 정부, 노무현 정부 비판 행적으로 부정적 여론)되면서 2021년 12월 7일 국민의힘에 입당

    22대는 국민의힘으로 서울 서대문갑 출마하여 낙선

[ 데이터 : 2024년 제 22대 국회의원 선거 결과 ]

정당	지역구	비례대표	합계
더불어민주당, 더불어민주엽합	161	14	175
국민의힘, 국민의미래	90	18	108
조국혁명당	0	12	12
개혁신당	1	2	3
새로운미래	1	0	1
진보당	1	0	1
합계	254	46	300

---

[ Parliament 의석 수 그래프 ]

[ 그래프 : 2016년 제 20대 국회의원 선거 결과 ]

코드

library(tidyverse)
library(ggpol)


# 데이터 프레임 생성
df20 <- data.frame(
  party = c("더불어민주당", "새누리당", "국민의당", "정의당", "무소속"),
  seats = c(123, 122, 38, 6, 11)
)

ggplot(df20, aes(seats = seats, fill = party)) +
  geom_parliament(size = 1) +
  labs(title = "제20대 국회의원 선거 결과 (2016년)",
       x = "",  # x 축 레이블 제거
       y = "의석수") +
  theme_minimal() +
  theme(plot.title = element_text(size = 16, face = "bold"),
        axis.title = element_text(size = 12),
        axis.text.x = element_blank()) +  # x 축 텍스트 제거
  scale_fill_manual(values = c("blue", "red", "darkgreen", "yellow","grey"),
                    labels = c("더불어민주당", "새누리당", "국민의당", "정의당", "무소속"))

[ 그래프 : 2020년 제 21대 국회의원 선거 결과 ]

코드

library(tidyverse)
library(ggpol)


# 데이터 프레임 생성
df21 <- data.frame(
  party = c("더불어민주당", "미래통합당", "정의당", "국민의당", "열린시민당", "무소속"),
  seats = c(180, 103, 6, 3, 3, 5)
)

ggplot(df21, aes(seats = seats, fill = party)) +
  geom_parliament(size = 1) +
  theme_minimal() +
  theme(plot.title = element_text(size = 16, face = "bold"),
        axis.title = element_text(size = 12),
        axis.text.x = element_blank()) +  # x 축 텍스트 제거
  scale_fill_manual(values = c("blue", "red", "yellow","darkgreen","darkblue","grey"),
                    labels = c("더불어민주당", "미래통합당", "정의당", "국민의당", "열린시민당", "무소속")) +
  labs(title = "제21대 국회의원 선거 결과 (2020년)",
       x = NULL,  # x 축 레이블 제거
       y = NULL)  # y 축 레이블 제거

[ 그래프 : 2024년 제 22대 국회의원 선거 결과 ]

코드

library(tidyverse)
library(ggpol)


# 데이터 프레임 생성
df22 <- data.frame(
  party = c("더불어민주당", "국민의힘", "조국혁명당", "개혁신당", "새로운미래", "진보당"),
  seats = c(175, 108, 12, 3, 1, 1)
)

ggplot(df22, aes(seats = seats, fill = party)) +
  geom_parliament(size = 1) +
  theme_minimal() +
  theme(plot.title = element_text(size = 16, face = "bold"),
        axis.title = element_text(size = 12),
        axis.text.x = element_blank()) +  # x 축 텍스트 제거
  scale_fill_manual(values = c("blue", "red", "darkblue","orange","lightgreen","darkred"),
                    labels = c("더불어민주당", "국민의힘", "조국혁명당", "개혁신당", "새로운미래", "진보당")) +
  labs(title = "제22대 국회의원 선거 결과 (2024년)",
       x = NULL,  # x 축 레이블 제거
       y = NULL)  # y 축 레이블 제거

---

Parliament [pάːrləmənt] : 1. 국회2. 의회3. 하원4. 모임

 South Korea (AP) April 11, 2024
Big opposition win in South Korean parliament election poses setback to President Yoon
한국 국회의원 선거에서 야당이 대승을 거두면서 윤 대통령은 좌절감을 느꼈다.
https://apnews.com/article/south-korea-parliamentary-election-yoon-c362a024e6eff3d4a410927be00b4d0c

Bloomberg  April 11, 2024
South Korea’s President Suffers Big Loss in Parliament Vote
한국 대통령, 국회 투표에서 큰 손실을 입다
https://www.bloomberg.com/news/articles/2024-04-10/south-korea-opposition-keeps-parliament-majority-forecast-says

 

---

geom_parliament