Data - Olap
loyers %>%
print_table_conditional()| year | inflation_loyers | cumprod |
|---|---|---|
| 2001 | 4.1 | 104.1000 |
| 2002 | 5.2 | 109.5132 |
| 2003 | 4.2 | 114.1128 |
| 2004 | 4.4 | 119.1337 |
| 2005 | 5.1 | 125.2095 |
| 2006 | 3.5 | 129.5919 |
| 2007 | 4.3 | 135.1643 |
| 2008 | 3.5 | 139.8951 |
| 2009 | 3.3 | 144.5116 |
| 2010 | 2.2 | 147.6909 |
| 2011 | 3.2 | 152.4170 |
| 2012 | 3.3 | 157.4467 |
| 2013 | 2.7 | 161.6978 |
loyers %>%
add_row(year = 2000, cumprod = 100) %>%
mutate(date = paste0(year, "-01-01") %>% as.Date) %>%
ggplot + geom_line(aes(x = date, y = cumprod)) +
theme_minimal() + xlab("") + ylab("") +
scale_y_log10(breaks = seq(100, 200, 5)) +
scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.15, 0.8),
legend.title = element_blank())