women_parliaments: Proportion of seats held by women in national parliaments

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

Description

Women in parliaments are the percentage of parliamentary seats in a single or lower chamber held by women.

Usage

women_parliaments

Format

An object of class data.frame with 4632 rows and 4 columns.

References

Inter-Parliamentary Union (IPU, ipu.org)

Downloaded on 10/31/2017 from: https://data.worldbank.org/indicator/SG.GEN.PARL.ZS

Examples

library(dplyr)
library(tidyr)
library(ggplot2)
library(colorblindr)

# ccode = "RWA" # Rwanda
# ccode = "BEL" # Belgium
# ccode = "ARB" # Arab world
# ccode = "BOL" # Bolivia
ccode = "EUU" # European Union

women_parliaments %>% filter(country_code == ccode & year > 1990) %>%
  mutate(women = perc_women, men = 100 - perc_women) %>%
  select(-perc_women) %>%
  gather(gender, percent, women, men) %>%
  mutate(gender = factor(gender, levels = c("women", "men"))) %>%
  ggplot(aes(x = year, y = percent, fill = gender)) +
    geom_col(position = "stack", width = .9) +
    geom_hline(yintercept = c(0, 25, 50, 75, 100), color = "#FFFFFF60") +
    scale_x_continuous(expand = c(0, 0)) +
    scale_y_continuous(expand = c(0, 0)) +
    scale_fill_OkabeIto() +
    theme_minimal()

clauswilke/dviz.supp documentation built on Aug. 25, 2020, 2:12 a.m.