可视化 | ggparliament包绘制议会图

ggparliament

ggparliament 包是为了使用 ggplot2 创建议会图表而开发的。该库还提供了一个示例数据集，其中包含了多个国家的选举数据。

在本教程中，我们将使用来自2016年俄罗斯国家杜马选举的数据来进行所有示例。需要注意的是，根据每个国家的不同，议会的类型也会不同，因此您应该根据您想要显示的数据使用相应的类型。可用的类型包括 “semicircle”（美国、法国、西班牙等）、”circle”、”opposing_benches”（英国）、”classroom” 和 “horsehoe”（澳大利亚、新西兰）。

这段文字描述了 ggparliament 包的功能以及如何在教程中使用2016年俄罗斯国家杜马选举的数据来进行演示。同时，它还提到了不同国家使用不同类型的议会图表，需要根据数据选择相应的类型。

一、准备数据

library(ggparliament)
library(tidyverse)

# Data
ru <- election_data %>%
  filter(country == "Russia" & year == 2016)

ru

二、议会图

2.1 半圆形议会图

要在 ggplot2 中使用 ggparliament 创建议会图表，您需要将数据转换为该软件包可以理解的格式。为此，您可以使用 parliament_data 函数，其中您可以指定原始数据集、议会类型及其行数、各党派的席位数以及其他参数。

然后，您可以将数据传递给 ggplot2，并使用 geom_parliament_seats() 函数。

请注意，该软件包提供了一个名为 theme_ggparliament 的自定义主题。

library(ggparliament)
library(tidyverse)

ru_semicircle <- parliament_data(election_data = ru,
                                 type = 'semicircle',#半圆形议会图
                                 parl_rows = 10, #议会图席位行数
                                 party_seats = ru$seats #各党派席位
                                )

ggplot(ru_semicircle, aes(x = x, y = y, colour = party_short)) +
  geom_parliament_seats() + 
  theme_ggparliament() +
  draw_totalseats(n = 450, type = "semicircle") +
  labs(title = "Russia, 2016") +
  scale_colour_manual(values = ru_semicircle$colour, 
                      limits = ru_semicircle$party_short) +
  coord_fixed()  # 设置纵横比为1:1

2.2 圆形议会图

如果你想要创建其他类型的议会，只需将不同的类型传递给 parliament_data 函数的 type 参数。在下面的示例中，我们正在创建一个圆形议会，这在一些国家中被使用。

library(ggparliament)
# install.packages("tidyverse")
library(tidyverse)

ru_circle <- parliament_data(election_data = ru,
                             type = "circle",
                             parl_rows = 10,
                             party_seats = ru$seats)

ggplot(ru_circle, aes(x = x, y = y, colour = party_short)) +
  geom_parliament_seats() + 
  theme_ggparliament() +
  draw_totalseats(n = 450, type = "semicircle") +
  labs(title = "Russia, 2016") +
  scale_colour_manual(values = ru_circle$colour, 
                      limits = ru_circle$party_short) +
  coord_fixed()  # 设置纵横比为1:1

三、进一步自定义

该软件包提供了其他功能来自定义议会图表，例如标记政党、绘制多数门槛线、突出显示执政党等。

在以下示例中，我们将使用半圆图表，但您也可以将相同的函数用于其他类型的议会。

3.1 突出显示执政党并绘制多数门槛

geom_highlight_government 函数允许突出显示政府或控制立法机构的政党。此外，draw_majoritythreshold 函数允许添加表示多数门槛的线条。

library(ggparliament)
library(tidyverse)

ru_semicircle <- parliament_data(election_data = ru,
                                 type = "semicircle",
                                 parl_rows = 10,
                                 party_seats = ru$seats)

ggplot(ru_semicircle, aes(x = x, y = y, colour = party_short)) +
  geom_parliament_seats() + 
  geom_highlight_government(government == 1) +
  draw_totalseats(n = 450, type = "semicircle") +
  draw_majoritythreshold(n = 225, label = TRUE, type = "semicircle") +
  theme_ggparliament() +
  labs(title = "Russia, 2016") +
  scale_colour_manual(values = ru_semicircle$colour, 
                      limits = ru_semicircle$party_short) +
   coord_fixed() 

3.2 议会柱状图

您还可以使用 geom_parliament_bar 函数添加一个议会柱状图，显示各政党在议会中的席位比例，如下所示。

library(ggparliament)
library(tidyverse)

ru_semicircle <- parliament_data(election_data = ru,
                                 type = "semicircle",
                                 parl_rows = 10,
                                 party_seats = ru$seats)

ggplot(ru_semicircle, aes(x = x, y = y, colour = party_short)) +
  geom_parliament_seats() + 
  geom_highlight_government(government == 1) +
  geom_parliament_bar(colour = colour, party = party_long, label = TRUE) +
  draw_totalseats(n = 450, type = "semicircle") +
  draw_majoritythreshold(n = 225, label = TRUE, type = "semicircle") +
  theme_ggparliament() +
  labs(title = "R") +
  scale_colour_manual(values = ru_semicircle$colour, 
                      limits = ru_semicircle$party_short) +
  coord_fixed()