Amtszeit_Vorsitz_OBR_Kiel.R

# Quelle: https://ratsinfo.kiel.de/bi/au010.asp?T1=Ortsbeir%E4te&AU=Ortsbeirat&SORTVON=20&SORTBIS=39

library(tidyverse)
library(ggchicklet)
library(hrbrthemes)
library(lubridate)

obr_vorsitz <- tibble::tribble(
  ~OBRId,                                    ~Ortsbeirat, ~Funktion,                   ~Name, ~Herkunft, ~Vorsitz_seit,
      1L,                         "Ortsbeirat Schilksee", "Vorsitz",         "Finger, Maike",     "SPD",    "12.09.18",
      2L,               "Ortsbeirat Pries/Friedrichsort", "Vorsitz",  "Redlin, Hans-Meinert",     "SPD",    "16.07.08",
      3L,                          "Ortsbeirat Holtenau", "Vorsitz",         "Toscan, Heidi",     "SPD",    "04.09.18",
      4L,              "Ortsbeirat Steenbek-Projensdorf", "Vorsitz",      "Hentschel, André",     "SPD",    "02.09.20",
      5L,                         "Ortsbeirat Suchsdorf", "Vorsitz",           "Riis, Helge",     "SPD",    "10.09.19",
      6L,                               "Ortsbeirat Wik", "Vorsitz",   "Pollakowski, Ulrike",     "SPD",    "22.09.16",
      7L,  "Ortsbeirat Ravensberg/Brunswik/Düsternbrook", "Vorsitz", "Dr. Triebel, Matthias",   "GRÜNE",    "28.04.21",
      8L,     "Ortsbeirat Schreventeich/Hasseldieksdamm", "Vorsitz",          "Neht, Monika",   "GRÜNE",    "24.10.19",
      9L,                         "Ortsbeirat Mettenhof", "Vorsitz",       "Klettner, Sönke",     "SPD",    "10.04.13",
     10L,                             "Ortsbeirat Mitte", "Vorsitz",       "Winkler, Fabian",     "SPD",    "16.06.20",
     11L,            "Ortsbeirat Russee/Hammer/Demühlen", "Vorsitz",       "Jöhnk, Winfried",     "SPD",    "29.08.13",
     12L,                    "Ortsbeirat Hassee/Vieburg", "Vorsitz",      "Jopen, Christian",     "SPD",    "04.09.18",
     13L,               "Ortsbeirat Meimersdorf/Moorsee", "Vorsitz",          "Canli, Canan",     "SPD",    "17.03.21",
     14L,           "Ortsbeirat Wellsee/Kronsburg/Rönne", "Vorsitz",         "Outzen, Marco",     "SPD",    "03.09.13",
     15L,               "Ortsbeirat Elmschenhagen/Kroog", "Vorsitz",     "Langfeldt, Detlef",     "SPD",    "25.05.04",
     16L,                           "Ortsbeirat Gaarden", "Vorsitz",        "Levtzow, Bruno",     "SPD",    "14.05.86",
     17L,              "Ortsbeirat Ellerbek/Wellingdorf", "Vorsitz",         "Baş, Özgürcan",     "SPD",    "02.09.20",
     18L, "Ortsbeirat Neumühlen-Dietrichsdorf/Oppendorf", "Vorsitz",      "Stagars, Torsten",     "SPD",    "06.09.18"
  )

get_amtszeit <- function(x) {
  az <- lubridate::time_length(difftime(as.Date("2021-05-14"), lubridate::dmy(x)), unit = "years")
  ifelse(round(az) == 0 , 1, round(az))
}

obr_vorsitz %>% 
  mutate(amtszeit = get_amtszeit(Vorsitz_seit)) %>% 
  mutate(Ortsbeirat = str_replace_all(Ortsbeirat, "Ortsbeirat ", "OBR ")) %>% 
  mutate(Ortsbeirat = paste0(Ortsbeirat, "\n", Name, " (", Herkunft, ")")) %>% 
  mutate(Ortsbeirat = fct_reorder(Ortsbeirat, amtszeit, max, .desc=FALSE)) %>% 
  ggplot() +
  geom_chicklet(
    aes(Ortsbeirat, amtszeit, fill = Name),
    width = 0.85
    ) +
  ggthemes::scale_fill_tableau("Tableau 20") +
  coord_flip() +
  labs(
    x = NULL, y = NULL, fill = NULL,
    title = "Amtszeit des Vorsitz in den Kieler Ortsbeiräten",
    subtitle = "auf volle Jahre aufgerundet, Stichtag 14.05.2021",
    caption = "Quelle: Infosystem Komunalpolitik <https://ratsinfo.kiel.de/bi/au010.asp?T1=Ortsbeir%E4te&AU=Ortsbeirat&SORTVON=20&SORTBIS=39>\n#rstats by @patrickhausmann, inspired by @hrbrmstr"
  ) +
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_continuous(
     expand = c(0, 0.0625),
     breaks = seq(0, 40, 5),
     position = "right",
     labels = c(0, sprintf("%d Jahre", seq(5, 40, 5)))) + 
  theme_ipsum_rc(grid="X", 
                 base_size = 14,
                 subtitle_size = 14,
                 plot_title_size = 21,
                 subtitle_family = "Roboto Condensed") +
  theme(axis.text.x = element_text(color = "gray40", size = 13)) +
  theme(legend.position = "none")  


# https://git.io/JsOPK