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

Données - INSEE

Auteur

François Geerolf

Last observation: déc. 2023 (N = 452)

First observation: mars 2005 (N = 452)

Last data update: 05 sept. 2026, 00:47

Last compile: 05 sept. 2026, 02:48

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

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