Prix immobilier commercial

Data - BDF

Author

François Geerolf

Info

source dataset .html .RData
bdf CPP 2024-07-26 2024-07-01

Données sur l’immobilier

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

FREQ Frequency

Code 
CPP %>%
  left_join(CPP_var, by = "variable") %>%
  left_join(FREQ, by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
FREQ Freq Nobs
Q Trimestriel 12
A Annuel 4

PROPERTY_CPP

Code 
CPP %>%
  left_join(CPP_var, by = "variable") %>%
  left_join(PROPERTY_CPP, by = "PROPERTY_CPP") %>%
  group_by(PROPERTY_CPP, Property_cpp) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
PROPERTY_CPP Property_cpp Nobs
TP All property types 16

PROPERTY_IND

Code 
CPP %>%
  left_join(CPP_var, by = "variable") %>%
  left_join(PROPERTY_IND, by = "PROPERTY_IND") %>%
  group_by(PROPERTY_IND, Property_ind) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
PROPERTY_IND Property_ind Nobs
TVAL Transaction value 16

Prix de l’immobilier commercial, France, en variation

Trimestriel

Code 
CPP %>%
  left_join(CPP_var, by = "variable") %>%
  filter(FREQ == "Q") %>%
  ggplot + geom_line(aes(x = date, y = value/100)) +
  theme_minimal()  + xlab("") + ylab("") +
  scale_x_date(breaks = seq.Date(as.Date("2010-01-01"), to = Sys.Date(), "3 months"),
               labels = date_format("%b %Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  scale_y_continuous(breaks = 0.01*seq(0, 7000, 2),
                     labels = percent_format())

Annuel

Code 
CPP %>%
  left_join(CPP_var, by = "variable") %>%
  filter(FREQ == "A") %>%
  ggplot + geom_line(aes(x = date, y = value)) +
  theme_minimal()  + xlab("") + ylab("") +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 7000, 10))