Last observation: S: 2021-S2 (N = 4) · T: 2021-Q3 (N = 1) · A: 2021 (N = 164)
First observation: A: 1990 (N = 32) · T: 1991-Q3 (N = 1) · S: 1991-S1 (N = 2)
Last data update: 17 aoû 2026, 00:00. Last compile: 18 aoû 2026, 00:44
Données - INSEE
Last observation: S: 2021-S2 (N = 4) · T: 2021-Q3 (N = 1) · A: 2021 (N = 164)
First observation: A: 1990 (N = 32) · T: 1991-Q3 (N = 1) · S: 1991-S1 (N = 2)
Last data update: 17 aoû 2026, 00:00. Last compile: 18 aoû 2026, 00:44
freq_dominant <- `ENQ-CONJ-INV-IND` |>
filter(!is.na(OBS_VALUE)) |>
count(FREQ, sort = TRUE) |>
slice(1) |>
pull(FREQ)
convert_fn <- switch(freq_dominant,
"A" = year_to_date, "Q" = quarter_to_date, "T" = quarter_to_date,
"M" = month_to_date, "S" = semester_to_date,
year_to_date)
`ENQ-CONJ-INV-IND` |>
filter(!is.na(OBS_VALUE), FREQ == freq_dominant) |>
group_by(TIME_PERIOD) |>
summarise(OBS_VALUE = mean(OBS_VALUE, na.rm = TRUE), .groups = "drop") |>
convert_fn() |>
ggplot() + theme_minimal() + xlab("") + ylab("Average value across all series") +
geom_line(aes(x = date, y = OBS_VALUE)) +
scale_x_date(date_labels = "%Y")