uni/sose2021/r/w02/L03-4-exerc.R

library(ggplot2)
library(tibble)
library(gridExtra)

# Bundeswahlleiter, Wiesbaden 2017
# Endgültig gewählte Bewerberinnen und Bewerber bei der Wahl zum 19. Deutschen Bundestag (24. September 2017)
data_raw <- readr::read_delim("mdb.csv", delim=";")
mdb <- data_raw[,c("Name", "Vorname", "Geschlecht", "Geburtsjahr", "Partei_KurzBez")]
names(mdb) <- c("last_name", "first_name", "gender", "birth_year", "party")
party_colors <- c(
  SPD="#DF0B25",
  CSU="#87bbe6",
  CDU="#000000", 
  AfD="#1A9FDD",
  "DIE LINKE"="#BC3475",
  "GRÜNE"="#4A932B",
  FDP="#FEEB34"
)

plt1 <- ggplot(data = mdb, aes(x = party, fill=gender)) +
    geom_bar(position = "dodge2")

plt2 <- ggplot(data = mdb, aes(x = birth_year, fill = party)) +
    geom_histogram(binwidth=10, position=position_dodge2(preserve="single")) +
    scale_fill_manual(values=party_colors)

grid.arrange(plt1, plt2, nrow=1)