分析韩国总统弹劾案：R 数据可视化和历史教训

弹劾是《宪法》保障的最有力的民主程序之一，在总统制中，弹劾是在人民要求与法治之间的紧张关系中行使的。弹劾韩国总统是一个重要事件，它迫使我们反思政治领导和民主的本质。

在本帖中，我们将使用 R 编程语言我们还引用了历史学家和政治学家的观点，丰富了每个案例的内涵。

韩国总统弹劾案

首先，让我们仔细研究一下总统弹劾案的政治背景，并利用弹劾案的相关数据创建一个 ggplot2 函数，在条形图中对它们进行比较。

卢武铉总统弹劾案（2004 年）

  • 执政党新世界党的所有 47 名成员都抵制投票。
  • 弹劾动议由反对党大国家党、新千年党和自由韩国民主联盟领导。
  • 在有资格投票的 271 名成员中，只有 195 人投了票，动议以 193 票赞成、2 票反对获得通过。
  • 当时的民意调查显示，约有 70% 的民众反对弹劾法案。

弹劾总统朴槿惠（2016年）

  • 即使在执政党新世界党（现大国家党）中，也有相当多的议员投票支持弹劾。
  • 在有资格投票的 300 名成员中，299 人参加了投票，234 票赞成，56 票反对，2 票弃权，7 票无效。

弹劾总统尹锡钰（2024年）

  • 所有 300 名在职党员都投了票。
  • 所有反对党议员（192 人）都投了赞成票。
  • 执政党人民力量至少有 12 名议员投票支持弹劾。
  • 动议以 204 票赞成、85 票反对、3 票弃权、8 票无效获得通过。
대통령 탄핵 사례 시각화1
(总统弹劾案占投票总数的百分比数据）

韩国总统弹劾案分析代码

让我们编写一些代码来分析和比较上述弹劾案的数据。

加载 # 软件包
library(ggplot2)
library(reshape2)
library(fmsb)

# 数据准备
data <- data.frame(
    总统 = c("卢武铉"、"朴槿惠"、"尹淑烈")、
    总计 = c（272，300，300）、
    参与 = c（195，299，300）、
    For = c（193、234、204）、
    Against = c（2，56，85）、
    弃权 = c（0，2，3）、
    无效 = c(0, 7, 8)
)

计算 # 比率
data$For_Percent <- (data$For / data$Total) * 100
data$Against_Percent <- (data$Against / data$Total) * 100
data$Abstain_Percent <- (data$Abstain / data$Total) * 100
data$Invalid_Percent <- (data$Invalid / data$Total) * 100

将 # 比率数据转换为长格式
melted_data <- melt(data[, c("President", "For_Percent", "Against_Percent", "Abstain_Percent", "Invalid_Percent")], id.vars = "President")

创建 # 比率比较柱形图
ggplot(melted_data, aes(x = President, y = value, fill = variable)) +
    geom_bar(stat = "identity", position = "dodge") +
    geom_text(aes(label = round(value, 1))、 
              position = position_dodge（宽度 = 0.9）、 
              vjust = -0.5, size = 3) +
    labs(title = "弹劾投票结果比较（百分比）"、 
         x = "总统"、 
         y = "百分比（%）"）+
    scale_fill_brewer(palette = "Set1") +
    theme_minimal()

为 # 雷达制图准备数据
radar_data <- rbind(rep(300, 5), rep(0, 5), data[, c("Participated", "For", "Against", "Abstain", "Invalid")])
colnames(radar_data) <- c("参与"、"赞成"、"反对"、"弃权"、"无效")

创建 # 雷达图
radarchart(radar_data、
           axistype = 1、
           pcol = rainbow(3)、
           pfcol = rainbow(3, alpha = 0.3)、
           plwd = 4、
           plty = 1、
           cglcol = "灰色"、
           cglty = 1、
           cglwd = 0.8、
           vlcex = 0.8、
           title = "各总统弹劾投票结果的比较")

修改 # 图例
legend(x = 1, y = 1, legend = data$President, col = rainbow(3), lty = 1, pch = 15, pt.cex = 2, bty = "n")

R 代码评注

准备数据

  1. 创建一个数据框： data.frame总结每个总统弹劾案的投票结果。
    • 主席主席姓名
    • 总计出席会议的成员人数
    • 参加, 对于, 反对, 弃权, 无效文件：每个项目的投票结果

计算比率

  1. 计算比率：
    • 将每个项目设置为 总计转换成百分比。
    • 结果是一个新列 (百分比, 反对百分比等）。

比率比较柱形图

  1. 数据转换： 融化将数据转换为长格式，使用 ggplot以适当的形式。
  2. 创建条形图：
    • 条形图绘制条形图，比较每个项目的比例。
    • geom_text来显示每个条形图上方的百分比值。
    • 刻度填充器和 最小化主题以直观地表示图形。

创建雷达图

  1. 数据转换：
    • rbind来准备一个数据集，其中包含雷达图的最大值（300）和最小值（0）。
  2. 创建雷达图：
    • 雷达图 函数，在雷达图中表示每个项目的数据。
    • pcol和 pfcol来设置颜色和透明度，使它们在视觉上截然不同。
  3. 添加图例：
    • 神话添加一个图例，按总统描述数据。
대통령 탄핵 사례 시각화2
(在雷达图中比较总统弹劾案的数据）

总统弹劾案雷达图分析

参加:

  • 朴槿惠和 Seok-Yeol Yoon 在弹劾案中，我们看到投票率非常高，几乎所有国会议员都参加了投票。
  • 鉴于 卢武铉 在弹劾案中，投票率相对较低，原因是当时执政党成员缺席。

对于:

  • 朴槿惠 弹劾获得了压倒性多数的赞成票（约 781 TP3T），这表明民众的支持和政治共识对弹劾起到了重要作用。
  • Seok-Yeol Yoon 弹劾案的赞成票比例略低（约 68%），但仍占多数，表明弹劾案已获通过。
  • 卢武铉 弹劾案获得了约 71% 张赞成票，但被宪法法院推翻。

反对:

  • 朴槿惠 与其他案例相比，反对弹劾的比例（约 18%）较低，这表明当时政治领域对弹劾达成了强烈共识。
  • Seok-Yeol Yoon 在弹劾案中，反对党的比例约为 28%，显示出执政党有一定的凝聚力。
  • 卢武铉 几乎没有人反对弹劾，但这是因为弹劾是由反对党领导的。

弃权:

  • Seok-Yeol Yoon 在弹劾案中，我们看到少量弃权票（约 1% 票），表明一些议员采取了中立立场。
  • 卢武铉和 朴槿惠 在我们的案例中，弃权率几乎不存在或可以忽略不计。

无效:

  • 朴槿惠和 Seok-Yeol Yoon 弹劾案的无效票比例略高（2-3%）。这表明，一些议员在政治争议中无法做出明确表态。
  • 卢武铉 在弹劾案中，没有白票。

弹劾总统案件的历史教训和启示

卢武铉总统弹劾案（2004 年）

反对党领导的对卢武铉总统的弹劾以公众的强烈反对和宪法法院的驳回而告终。

"所有政治决策都应征得人民的同意"。

亚伯拉罕-林肯
弹劾总统朴槿惠（2016年）

烛光集会的力量和反对执政党的选票导致宪法法院对其提出弹劾，这一事件象征着民主的进步。

"群众的参与加强了民主"。

亚里士多德
弹劾总统尹锡钰（2024年）

-尹锡友总统被弹劾是执政党内部分裂和反对党采取联合战略共同作用的结果。

"没有内部凝聚力的领导力会分崩离析"。

邱吉尔

组织起来

对韩国总统的弹劾是民主与法治之间相互作用的一个重要例子。R 数据可视化使我们能够清晰地分析复杂的数据，并从中得出社会教训和政治见解。通过这一系列的总统弹劾案，我们了解到韩国的民主正在日益强大，我们希望韩国作为一个不忘历史的国家能够继续蓬勃发展。

"如果我们忘记历史，就注定要重蹈覆辙"。

乔治-桑塔亚纳

类似文章