SDP, hallituskaudet ja työllisyysaste

Työllisyysastetta kuvaava aineisto haettu 2019-01-27 Tilastokeskuksen PX-Web-tietokannasta. Kuvaajassa y-akselin arvona on käytetty vuosikeskiarvoa. Luokkamuuttujan arvona on käytetty Y20, eli ikäluokat 20-64.

SDP:n hallituskaudet on määritelty puolen vuoden tarkkuudella ja pohjautuen Wikipedian tietoihin.

dat <- readxl::read_excel("data/tyti_001_201812.xlsx") %>%
  tidyr::fill(vuosi, kk_int, kk, sex_int, sex)


sdp_hallitus <- data.frame(start = c(1989, 1995.5, 2011.5),
                           end = c(1991.5, 2007.5, 2015.5),
                           ymin = 0,
                           ymax = 100)

sdp_ei_hallitus <- data.frame(start = c(1991.5, 2007.5, 2015.5),
                           end = c(1995.5, 2011.5, 2018),
                           ymin = 0,
                           ymax = 100)

yearly <- dat %>%
  dplyr::filter(sex == "Sukupuolet yhteensä" & luokka == "Y20" &
                kk == "Vuosikeskiarvo") %>%
  dplyr::mutate(vuosi = as.numeric(vuosi))

Punainen väri = SDP hallituksessa
Sininen väri = SDP oppositiossa

p1 <- ggplot() +
  geom_rect(data = sdp_hallitus,
            aes(xmin = start, xmax = end, ymin = ymin, ymax = ymax),
            color = NA, fill = "red", alpha = 0.2) +
  geom_rect(data = sdp_ei_hallitus,
            aes(xmin = start, xmax = end, ymin = ymin, ymax = ymax),
            color = NA, fill = "steelblue", alpha = 0.2) +
  geom_line(data = yearly, aes(x = vuosi, y = työllisyysaste, group = luokka),
            color = "black") +
  scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, 10),
                     labels = paste0(seq(0, 100, 10), " %")) +
  scale_x_continuous(limits = c(1989, 2018), breaks = 1989:2018) +
  ylab("Työllisyysaste\n") + xlab("\nVuosi") +
  hrbrthemes::theme_ipsum_rc() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5),
        panel.grid.minor = element_blank(),
        panel.grid.major.x = element_blank())

cowplot::ggdraw(add_sub(p1, 
                        "Punainen väri = SDP hallituksessa\nSininen väri = SDP oppositiossa "))