Depuis 1999, les loyers ont globalement augmenté un peu plus vite que l’inflation - if152

Données - INSEE

Figure 1 - Loyers, IRL et inflation, évolution annuelle

Code
if152 |>
  filter(sheet == "Figure 1") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Évolution annuelle (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Figure 2 - Inflation par catégorie de population

Code
if152 |>
  filter(sheet == "Figure 2") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Évolution annuelle (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Figure 3 - Inflation avec dépenses de logement des propriétaires

Code
if152 |>
  filter(sheet == "Figure 3") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Évolution annuelle (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Figure 4 - Indices trimestriels, base 100 = 2000 T1

Code
if152 |>
  filter(sheet == "Figure 4") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("Indice, base 100 = 2000 T1") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()