geom_overhang_seats: Draw overhang seats in mixed-member proportional (MMP)...

Description Usage Arguments Author(s) Examples

Description

Draw overhang seats in mixed-member proportional (MMP) electoral systems

Usage

1

Arguments

expr

Expr refers to the designated overhang seats.

Author(s)

Zoe Meers

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
germany <- data.frame(
   year = 2013,
   seats = c(64, 63, 311, 193),
   government = c(0, 0, 1, 1),
   colour = c("#BE3075","#64A12D", "#000000","#EB001F"),
   party = c("The Left",
   "Alliance 90/The Greens",
   "Christian Democratic Union",
   "Social Democratic Party")
)
german_data <- parliament_data(
    election_data = germany,
    parl_rows = 11,
    party_seats = germany$seats,
    type = "semicircle"
)
german_data$overhang_seats <- rep(
    c(1, 0, 1, 0, 1, 0, 1, 0),
    c(16, 295, 11, 182, 3, 61, 3, 60)
)
ggplot2::ggplot(german_data, ggplot2::aes(x, y, colour = party)) +
 geom_parliament_seats() +
 geom_overhang_seats(overhang_seats == 1) +
 theme_ggparliament() +
 ggplot2::scale_colour_manual(values = as.character(german_data$colour),
 limits = as.character(german_data$party))

ggparliament documentation built on May 2, 2019, 3:35 p.m.