Loyers

Data - Olap

Loyers

Tableau

Code
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

Données main

Code
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())