Construction de logements

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData
insee CONSTRUCTION-LOGEMENTS 2024-11-09 2024-11-21

Données sur l’immobilier

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

LAST_COMPILE

LAST_COMPILE
2024-11-22

Last

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  head(1) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2024-09 608

TITLE_FR

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

LOGEMENT

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  left_join(LOGEMENT,  by = "LOGEMENT") %>%
  group_by(LOGEMENT, Logement) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
LOGEMENT Logement Nobs
SO Sans objet 54912
0 Logements : ensemble 32044
NLCR Logements collectifs et en résidence 31450
101 Logements ordinaires : individuels purs 21352
102 Logements ordinaires : individuels groupés 21352
104 Logements individuels : individuels purs + individuels groupés 11430
103 Logements ordinaires : total des logements - logements en résidence 1332
11 Logements ordinaires : collectifs 1332
2 Logements en résidence 1332

INDICATEUR

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
INDICATEUR Indicateur Nobs
NBRE_LOG_AUT Nombre de logements autorisés 85892
NBRE_LOG_COM Nombre de logements commencés 85316
SURF_PLANCHER_AUT Surface de plancher autorisée 2952
SURF_PLANCHER_COM Surface de plancher commencée 2376

CUMUL12MOIS

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  left_join(CUMUL12MOIS,  by = "CUMUL12MOIS") %>%
  group_by(CUMUL12MOIS, Cumul12mois) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
CUMUL12MOIS Cumul12mois Nobs
CUMUL Cumul sur 12 mois 126126
SO Sans objet 50410

UNIT_MEASURE

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
UNIT_MEASURE Nobs
METRES_CARRES 5328
SO 171208

REF_AREA

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  group_by(REF_AREA) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

France, Logements

Cumul 12 mois

Commencés, Autorisés

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM", "NBRE_LOG_AUT"),
         REF_AREA == "FR-D976",
         LOGEMENT == "0",
          CUMUL12MOIS == "CUMUL") %>%
  month_to_date %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Indicateur)) +
  xlab("") + ylab("Cumul sur 12 mois") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(100, 800, 50),
                     labels = dollar_format(pre = "", su = " K", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

Individuels purs, collectifs

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM"),
         REF_AREA == "FR-D976",
          CUMUL12MOIS == "CUMUL",
         LOGEMENT %in% c("NLCR", "101")) %>%
  month_to_date %>%
  left_join(LOGEMENT,  by = "LOGEMENT") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
  xlab("") + ylab("Cumul sur 12 mois") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 800, 20),
                     labels = dollar_format(pre = "", su = " K", acc = 1)) +
  theme(legend.position = c(0.25, 0.92),
        legend.title = element_blank())

Individuels purs, collectifs

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM"),
         REF_AREA == "FR-D976",
          CUMUL12MOIS == "CUMUL",
         LOGEMENT %in% c("0", "101")) %>%
  month_to_date %>%
  left_join(LOGEMENT,  by = "LOGEMENT") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
  xlab("") + ylab("Cumul sur 12 mois") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 800, 50),
                     labels = dollar_format(pre = "", su = " K", acc = 1)) +
  theme(legend.position = c(0.7, 0.92),
        legend.title = element_blank())

Par type

Valeur

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM"),
         REF_AREA == "FR-D976",
          CUMUL12MOIS == "CUMUL") %>%
  month_to_date %>%
  left_join(LOGEMENT,  by = "LOGEMENT") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
  xlab("") + ylab("Cumul sur 12 mois") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 800, 50),
                     labels = dollar_format(pre = "", su = " K", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

Indice, 2016-

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM"),
         REF_AREA == "FR-D976",
          CUMUL12MOIS == "CUMUL") %>%
  month_to_date %>%
  left_join(LOGEMENT,  by = "LOGEMENT") %>%
  filter(date >=  as.Date("2016-01-01")) %>%
  group_by(LOGEMENT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[date == as.Date("2016-01-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Logement)) +
  xlab("") + ylab("Cumul sur 12 mois") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 800, 5)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())

Mensuel

Code 
`CONSTRUCTION-LOGEMENTS` %>%
  filter(INDICATEUR %in% c("NBRE_LOG_COM", "NBRE_LOG_AUT"),
         REF_AREA == "FR-D976",
         LOGEMENT == "0",
          CUMUL12MOIS == "SO") %>%
  month_to_date %>%
  filter(date >= as.Date("2001-01-01")) %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Indicateur)) +
  xlab("") + ylab("Mensuel") +  theme_minimal() +
  
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(10, 80, 5),
                     labels = dollar_format(pre = "", su = " K", acc = 1)) +
  theme(legend.position = c(0.7, 0.9),
        legend.title = element_blank())