Conjoncture dans la promotion immobilière

Data - INSEE

~/data/insee/

Info

source	dataset	.html	.RData
insee	ENQ-CONJ-PROMO-IMMO	2024-04-18	2024-05-09

Liens

• Octobre 2023. html

Données sur l’immobilier

source	dataset	.html	.RData
acpr	as151	2024-04-05	2024-04-05
bdf	BSI1	2024-05-08	2024-05-08
bdf	CPP	2024-05-08	2024-05-08
bdf	FM	2024-05-08	2024-05-08
bdf	immobilier	2024-05-08	2024-05-07
bdf	MIR	2024-05-08	2024-05-08
bdf	MIR1	2024-05-08	2024-05-08
bdf	RPP	2024-05-08	2024-05-08
insee	CONSTRUCTION-LOGEMENTS	2024-05-09	2024-05-09
insee	ENQ-CONJ-ART-BAT	2024-05-09	2023-10-25
insee	ENQ-CONJ-IND-BAT	2024-05-09	2024-05-09
insee	ENQ-CONJ-PROMO-IMMO	2024-04-18	2024-05-09
insee	ENQ-CONJ-TP	2024-04-18	2024-05-09
insee	ILC-ILAT-ICC	2024-04-18	2024-05-09
insee	INDICES_LOYERS	2024-04-18	2024-05-09
insee	IPLA-IPLNA-2015	2024-04-18	2024-05-09
insee	IRL	2024-04-18	2024-05-09
insee	PARC-LOGEMENTS	2024-04-18	2023-12-03
insee	SERIES_LOYERS	2024-04-18	2024-05-09
insee	t_dpe_val	2024-04-18	2024-03-04
notaires	arrdt	2024-04-08	2024-04-08
notaires	dep	2024-04-08	2024-04-08

TITLE_FR

`ENQ-CONJ-PROMO-IMMO` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

INDICATEUR

`ENQ-CONJ-PROMO-IMMO` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FINANCEMENT_ECB

`ENQ-CONJ-PROMO-IMMO` %>%
  left_join(FINANCEMENT_ECB, by = "FINANCEMENT_ECB") %>%
  group_by(FINANCEMENT_ECB, Financement_ecb) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FINANCEMENT_ECB	Financement_ecb	Nobs
E	Ensemble	5634
S	Secteur libre	5454
P	Prêt conventionné	5014
A	Prêt d’accession sociale (PAS) et prêt à taux zéro (PTZ)	3958
L	Prêts locatifs aidés	1974

CORRECTION

`ENQ-CONJ-PROMO-IMMO` %>%
  group_by(CORRECTION) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

CORRECTION	Nobs
BRUT	11017
CVS	11017

NATURE

`ENQ-CONJ-PROMO-IMMO` %>%
  left_join(NATURE, by = "NATURE") %>%
  group_by(NATURE, Nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

NATURE	Nature	Nobs
SOLDE_PROPORTION	Solde d’opinions	19934
PROPORTION	Proportion	2100

Logements neufs

Ensemble

`ENQ-CONJ-PROMO-IMMO` %>%
  filter(INDICATEUR == "ECB_DLOG",
         FINANCEMENT_ECB == "E",
         CORRECTION == "CVS") %>%
  quarter_to_date %>%
  arrange(desc(date)) %>%
  mutate(OBS_VALUE = OBS_VALUE / 100) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE)) + theme_minimal() +
  scale_x_date(breaks = seq(1960, 2100, 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))

Financement

`ENQ-CONJ-PROMO-IMMO` %>%
  filter(INDICATEUR == "ECB_DLOG",
         CORRECTION == "CVS") %>%
  left_join(FINANCEMENT_ECB, by = "FINANCEMENT_ECB") %>%
  quarter_to_date %>%
  arrange(desc(date)) %>%
  mutate(OBS_VALUE = OBS_VALUE / 100) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Financement_ecb)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  theme(legend.position = c(0.7, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-500, 200, 5),
                     labels = percent_format(accuracy = 1))