Emphasize certain parliamentarians (for example, female members of parliament) by increasing transparency on the remaining observations.

Description

Emphasize certain parliamentarians (for example, female members of parliament) by increasing transparency on the remaining observations.

Usage

geom_emphasize_parliamentarians(expr)

Arguments

Author(s)

Zoe Meers

Examples

data <- election_data[
  election_data$country == "USA" &
  election_data$house == "Representatives" &
  election_data$year == "2016",
]
usa_data <- parliament_data(
  election_data = data,
  type = "semicircle",
  party_seats = data$seats,
  parl_rows = 8
)

women_in_congress <- c(1, 0, 0, 1)
number_of_women <- c(23, 218, 133, 61)

usa_data$women <- rep(women_in_congress, number_of_women)

ggplot2::ggplot(usa_data, ggplot2::aes(x, y, colour=party_long)) +
  geom_parliament_seats() +
  geom_emphasize_parliamentarians(women == 1) +
  theme_ggparliament(legend = FALSE) +
  ggplot2::scale_colour_manual(values = usa_data$colour, limits = usa_data$party_long) +
  ggplot2::labs(title = "Women in Congress")