Régimes de retraite

Data - IPP

Revalorisation des pensions

Tous

reval_p %>%
  transmute(date, OBS_VALUE = associe, variable = "Revalorisation des pensions") %>%
  bind_rows(reval_s %>%
              transmute(date, OBS_VALUE = associe, variable = "Revalorisation des salaires portés au compte")) %>%
  mutate(date = as.Date(date)) %>%
  ggplot(.) + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE, color = variable)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.92)) +
  scale_x_date(breaks = seq(1950, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-200, 200, 1),
                     labels = percent_format(acc = 1))

1996-

reval_p %>%
  transmute(date, OBS_VALUE = associe, variable = "Revalorisation des pensions") %>%
  bind_rows(reval_s %>%
              transmute(date, OBS_VALUE = associe, variable = "Revalorisation des salaires portés au compte")) %>%
  mutate(date = as.Date(date)) %>%
  bind_rows(inflation_ga) %>%
  filter(date >= as.Date("1996-01-01")) %>%
  ggplot(.) + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE, color = variable)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.3, 0.9)) +
  scale_x_date(breaks = seq(1950, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-200, 200, .5),
                     labels = percent_format(acc = .1))