今天给大家所要展示的图形是一种柱形图的变形图表——议会图（parliament diagrams）！
安装、加载R包
#安装包
install.packages("ggparliament")
install.packages("tidyverse")
#加载包
library(ggparliament)
library(tidyverse)
数据
使用ggparliament包自带的数据election_data：
df<-election_data %>%
filter(country == "Russia" & year == 2016)
image.png
使用parliament_data()函数将数据转换成绘图所需要的格式：
df1 <- parliament_data(election_data = df,
type = "semicircle", # 议会类型
parl_rows = 10, # 议会的行数
party_seats = df$seats) # 席位
image.png
绘图
ggplot(df1, 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_majoritythreshold(n = 225, label = TRUE, type = "semicircle") +#添加阈值线
theme_ggparliament() +
labs(title = "R") +#标题
scale_colour_manual(values = df1$colour,
limits = df1$party_short) +#颜色
draw_partylabels(type = "semicircle", ##标签
party_names = party_long,
party_seats = seats,
party_colours = colour)+
draw_totalseats(n = 450, type = "semicircle")#标签
image.png
其他类型展示
处理数据时，在type参数中修改相应类型即可绘制不同类型会议图：
df2 <- parliament_data(election_data = df,
type = "circle", # 议会类型
parl_rows = 10, # 议会的行数
party_seats = df$seats) # 席位
df3 <- parliament_data(election_data = df,
type = "classroom", # 议会类型
parl_rows = 11, # 议会的行数
party_seats = df$seats) # 席位
df4 <- parliament_data(election_data = df,
type = "horseshoe", # 议会类型
parl_rows = 10, # 议会的行数
party_seats = df$seats) # 席位
ggplot(df2, aes(x = x, y = y, color = party_short)) +
geom_parliament_seats() +
theme_ggparliament() +
labs(title = "Russia, 2016") +
scale_colour_manual(values = df1$colour,
limits = df1$party_short)
image.png
ggplot(df3, aes(x = x, y = y, color = party_short)) +
geom_parliament_seats() +
theme_ggparliament() +
labs(title = "Russia, 2016") +
scale_colour_manual(values = df1$colour,
limits = df1$party_short)
image.png
ggplot(df4, aes(x = x, y = y, color = party_short)) +
geom_parliament_seats() +
theme_ggparliament() +
labs(title = "Russia, 2016") +
scale_colour_manual(values = df1$colour,
limits = df1$party_short)
image.png
