Last observation: déc. 2023 (N = 452)
First observation: mars 2005 (N = 452)
Last data update: 23 sept. 2026, 22:55
Last compile: 24 sept. 2026, 01:18
Structure
NAF2
A88
Code
`IPS-2015-SERVICES` |>
filter(nchar(NAF2) == 2) |>
group_by(NAF2, Naf2) |>
summarise(Nobs = n()) |>
arrange(-Nobs) |>
print_table_conditional()TITLE_FR
Code
`IPS-2015-SERVICES` |>
group_by(IDBANK, TITLE_FR) |>
summarise(Nobs = n()) |>
arrange(-Nobs) |>
print_table_conditional()TIME_PERIOD: 1990-
Code
`IPS-2015-SERVICES` |>
group_by(TIME_PERIOD) |>
summarise(Nobs = n()) |>
arrange(desc(TIME_PERIOD)) |>
print_table_conditional()Services
H, I, J
Code
`IPS-2015-SERVICES` |>
filter(NAF2 %in% c("H", "I", "J"),
CORRECTION == "CVS-CJO") |>
select_if(function(col) length(unique(col)) > 1) |>
month_to_date() |>
group_by(Naf2) |>
mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[date == as.Date("2005-03-01")]) |>
ggplot() + ylab("Indice de Production dans les Services") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.8),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(-60, 300, 10))
L, M, N
Code
`IPS-2015-SERVICES` |>
filter(NAF2 %in% c("H", "M", "N"),
CORRECTION == "CVS-CJO") |>
select_if(function(col) length(unique(col)) > 1) |>
month_to_date() |>
group_by(Naf2) |>
mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[date == as.Date("2005-03-01")]) |>
ggplot() + ylab("Indice de Production dans les Services") + xlab("") + theme_minimal() +
geom_line(aes(x = date, y = OBS_VALUE, color = Naf2)) +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.8),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(-60, 300, 10))