Indices de production dans les services - IPS-2015-SERVICES

Données - INSEE

Auteur

François Geerolf

Info

Last observation: Mensuelle: 2023-12 (N = 452)

First observation: Mensuelle: 2005-03 (N = 452)

Number of observations: 102 152

Last data update: 14 aoû 2026, 23:15. Last compile: 15 aoû 2026, 04:27

Structure

LAST_UPDATE

Code

`IPS-2015-SERVICES` |>
  group_by(LAST_UPDATE) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

LAST_UPDATE	Nobs
2024-02-29	102152

CORRECTION

Code

`IPS-2015-SERVICES` |>
  group_by(CORRECTION, Correction) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

CORRECTION	Correction	Nobs
BRUT	Non corrigé	51076
CVS-CJO	Corrigé des variations saisonnières et du nombre de jours ouvrables	51076

NAF2

Tous

Code

`IPS-2015-SERVICES` |>
  group_by(NAF2, Naf2) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()

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