source | dataset | .html | .RData |
---|---|---|---|
insee | CONSTRUCTION-LOGEMENTS | 2024-10-30 | 2024-11-05 |
Construction de logements
Data - Insee
Info
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-10-30 | 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_COMPILE
LAST_COMPILE |
---|
2024-11-05 |
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"),
== "FR-D976",
REF_AREA == "0",
LOGEMENT == "CUMUL") %>%
CUMUL12MOIS %>%
month_to_date left_join(INDICATEUR, by = "INDICATEUR") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/1000, color = Indicateur)) +
ggplot 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"),
== "FR-D976",
REF_AREA == "CUMUL",
CUMUL12MOIS %in% c("NLCR", "101")) %>%
LOGEMENT %>%
month_to_date left_join(LOGEMENT, by = "LOGEMENT") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
ggplot 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"),
== "FR-D976",
REF_AREA == "CUMUL",
CUMUL12MOIS %in% c("0", "101")) %>%
LOGEMENT %>%
month_to_date left_join(LOGEMENT, by = "LOGEMENT") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
ggplot 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"),
== "FR-D976",
REF_AREA == "CUMUL") %>%
CUMUL12MOIS %>%
month_to_date left_join(LOGEMENT, by = "LOGEMENT") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/1000, color = Logement)) +
ggplot 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"),
== "FR-D976",
REF_AREA == "CUMUL") %>%
CUMUL12MOIS %>%
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")]) %>%
+ geom_line(aes(x = date, y = OBS_VALUE, color = Logement)) +
ggplot 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"),
== "FR-D976",
REF_AREA == "0",
LOGEMENT == "SO") %>%
CUMUL12MOIS %>%
month_to_date filter(date >= as.Date("2001-01-01")) %>%
left_join(INDICATEUR, by = "INDICATEUR") %>%
+ geom_line(aes(x = date, y = OBS_VALUE/1000, color = Indicateur)) +
ggplot 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())