loyers_agglo_paris %>%
mutate(OBS_VALUE = 100*cumprod(1+value/100),
year = year+1) %>%
add_row(year = 2001, OBS_VALUE = 100) %>%
mutate(date = paste0(year, "-01-01") %>% as.Date) %>%
mutate(variable = "Indice des loyers, source: Observatoire des Loyers de l'Agglomération Parisienne") %>%
ggplot + geom_line(aes(x = date, y = OBS_VALUE)) +
theme_minimal() + xlab("") + ylab("") +
scale_y_log10(breaks = seq(100, 200, 5)) +
scale_x_date(breaks = seq(2001, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.8),
legend.title = element_blank())
