Conjoncture dans l’artisanat du bâtiment

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData
insee ENQ-CONJ-ART-BAT 2024-10-29 2024-11-05

Données sur l’immobilier

source dataset .html .RData
acpr as151 2024-06-19 2024-04-05
bdf BSI1 2024-07-26 2024-06-14
bdf CPP 2024-07-26 2024-07-01
bdf FM 2024-07-26 2024-10-16
bdf immobilier 2024-07-26 2024-06-18
bdf MIR 2024-07-26 2024-07-01
bdf MIR1 2024-10-16 2024-10-16
bdf RPP 2024-07-26 2024-07-01
cgedd nombre-vente-maison-appartement-ancien 2024-09-26 2024-09-26
insee CONSTRUCTION-LOGEMENTS 2024-11-05 2024-11-05
insee ENQ-CONJ-ART-BAT 2024-10-29 2024-11-05
insee ENQ-CONJ-IND-BAT 2024-10-29 2024-11-05
insee ENQ-CONJ-PROMO-IMMO 2024-10-29 2024-11-05
insee ENQ-CONJ-TP 2024-10-29 2024-11-05
insee ILC-ILAT-ICC 2024-10-29 2024-11-05
insee INDICES_LOYERS 2024-10-29 2024-11-05
insee IPLA-IPLNA-2015 2024-10-29 2024-11-05
insee IRL 2024-10-29 2024-11-05
insee PARC-LOGEMENTS 2024-10-29 2023-12-03
insee SERIES_LOYERS 2024-10-29 2024-11-05
insee t_dpe_val 2024-10-29 2024-09-02
notaires arrdt 2024-06-30 2024-09-09
notaires dep 2024-06-30 2024-09-08

LAST_UPDATE

Code 
`ENQ-CONJ-ART-BAT` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2023-10-24 12236

LAST_DOWNLOAD

LAST_DOWNLOAD
2024-11-05

TITLE_FR

Code 
`ENQ-CONJ-ART-BAT` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

INDICATEUR

Code 
`ENQ-CONJ-ART-BAT` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

NATURE

Code 
`ENQ-CONJ-ART-BAT` %>%
  left_join(NATURE, by = "NATURE") %>%
  group_by(NATURE, Nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
NATURE Nature Nobs
SOLDE_PROPORTION Solde d'opinions 10906
PROPORTION Proportion 1330

UNIT_MEASURE

Code 
`ENQ-CONJ-ART-BAT` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
UNIT_MEASURE Nobs
POURCENT 12236

TIME_PERIOD / date

Code 
`ENQ-CONJ-ART-BAT` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional()

Difficultés de recrutement, Apprentis

Tous

Code 
`ENQ-CONJ-ART-BAT` %>%
  filter(INDICATEUR %in% c("ECB_DREC", "ECB_FAPPR")) %>%
  quarter_to_date() %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  mutate(OBS_VALUE = OBS_VALUE / 100) %>%
  ggplot + theme_minimal() + xlab("") + ylab("Difficultés de recrutement (%)") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
  scale_x_date(breaks = seq(1960, 2022, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-500, 200, 5),
                     labels = percent_format(accuracy = 1))

Difficultés de recrutement

Tous

Code 
`ENQ-CONJ-ART-BAT` %>%
  filter(INDICATEUR == "ECB_DREC") %>%
  quarter_to_date() %>%
  mutate(OBS_VALUE = OBS_VALUE / 100) %>%
  ggplot + theme_minimal() + xlab("") + ylab("Difficultés de recrutement (%)") +
  geom_line(aes(x = date, y = OBS_VALUE)) +
  scale_x_date(breaks = seq(1960, 2022, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-500, 200, 5),
                     labels = percent_format(accuracy = 1))