Last observation: Q4 2018 (N = 3)
First observation: Q1 1999 (N = 8)
Last data update: 28 sept. 2026, 21:11
Last compile: 28 sept. 2026, 21:11
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()
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()
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()
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()