Enquêtes de Conjoncture Nationales - CONJ

Données - BDF

Auteur

François Geerolf

🇬🇧 English version

Info

Last observation: M: 2026-07-31 (N = 792) · Q: 2026-06-30 (N = 201)

First observation: M: 1976-01-31 (N = 11) · Q: 1996-03-31 (N = 8)

Last data update: 16 aoû 2026, 21:13. Last compile: 17 aoû 2026, 23:03

Structure

LAST_DOWNLOAD

LAST_DOWNLOAD
2026-08-16

Indicateurs du climat des affaires

Les indicateurs synthétiques du climat des affaires résument, pour chaque secteur, les réponses des chefs d’entreprise aux enquêtes de conjoncture de la Banque de France. Ils sont construits de façon à avoir une moyenne de longue période égale à 100 : au-dessus de 100, l’opinion des industriels est plus favorable qu’en moyenne longue.

Industrie, bâtiment, services marchands

Code

CONJ |>
  
  filter(variable %in% c("CONJ.M.N01.S.IN.000CZ.ICAIN181.10",
                          "CONJ.M.N01.S.SM.00NAT.ICASM182.1A",
                          "CONJ.M.N01.S.BA.00NAT.ICA00183.10")) |>
  mutate(Variable = case_when(
    ENQCNJ_TYPE_ENQ == "IN" ~ "Industrie manufacturière",
    ENQCNJ_TYPE_ENQ == "SM" ~ "Services marchands",
    ENQCNJ_TYPE_ENQ == "BA" ~ "Bâtiment",
    TRUE ~ Variable)) |>
  na.omit() |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  geom_hline(yintercept = 100, linetype = "dashed", color = "black") +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 150, 10)) +
  theme(legend.position = c(0.25, 0.15),
        legend.title = element_blank(),
        legend.direction = "vertical")

Depuis 5 ans

Code

CONJ |>
  
  filter(variable %in% c("CONJ.M.N01.S.IN.000CZ.ICAIN181.10",
                          "CONJ.M.N01.S.SM.00NAT.ICASM182.1A",
                          "CONJ.M.N01.S.BA.00NAT.ICA00183.10")) |>
  mutate(Variable = case_when(
    ENQCNJ_TYPE_ENQ == "IN" ~ "Industrie manufacturière",
    ENQCNJ_TYPE_ENQ == "SM" ~ "Services marchands",
    ENQCNJ_TYPE_ENQ == "BA" ~ "Bâtiment",
    TRUE ~ Variable)) |>
  na.omit() |>
  filter(date >= max(date) - years(5)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  geom_hline(yintercept = 100, linetype = "dashed", color = "black") +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = seq(0, 150, 5)) +
  theme(legend.position = c(0.25, 0.15),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Dernier point

Code

CONJ |>
  
  filter(variable %in% c("CONJ.M.N01.S.IN.000CZ.ICAIN181.10",
                          "CONJ.M.N01.S.SM.00NAT.ICASM182.1A",
                          "CONJ.M.N01.S.BA.00NAT.ICA00183.10")) |>
  mutate(Variable = case_when(
    ENQCNJ_TYPE_ENQ == "IN" ~ "Industrie manufacturière",
    ENQCNJ_TYPE_ENQ == "SM" ~ "Services marchands",
    ENQCNJ_TYPE_ENQ == "BA" ~ "Bâtiment",
    TRUE ~ Variable)) |>
  na.omit() |>
  group_by(Variable) |>
  filter(date == max(date)) |>
  ungroup() |>
  select(Secteur = Variable, date, value) |>
  arrange(desc(value)) |>
  print_table_conditional()

Secteur	date	value
NA	NA	NA
:-------:	:----:	:-----: