Prix immobilier commercial

Data - BDF

Info

source dataset .html .RData

bdf

CPP

2024-07-03 2024-07-01

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-03 2024-07-01

bdf

FM

2024-07-03 2024-06-18

bdf

immobilier

2024-07-03 2024-06-18

bdf

MIR

2024-07-03 2024-07-01

bdf

MIR1

2024-07-03 2024-07-01

bdf

RPP

2024-07-03 2024-07-01

insee

CONSTRUCTION-LOGEMENTS

2024-07-03 2024-07-03

insee

ENQ-CONJ-ART-BAT

2024-07-03 2024-07-02

insee

ENQ-CONJ-IND-BAT

2024-07-03 2024-07-02

insee

ENQ-CONJ-PROMO-IMMO

2024-07-03 2024-07-02

insee

ENQ-CONJ-TP

2024-07-03 2024-07-02

insee

ILC-ILAT-ICC

2024-07-03 2024-07-02

insee

INDICES_LOYERS

2024-07-03 2024-07-02

insee

IPLA-IPLNA-2015

2024-07-03 2024-07-03

insee

IRL

2024-07-04 2024-07-03

insee

PARC-LOGEMENTS

2024-07-04 2023-12-03

insee

SERIES_LOYERS

2024-07-04 2024-07-03

insee

t_dpe_val

2024-07-04 2024-07-01

notaires

arrdt

2024-06-30 2024-07-23

notaires

dep

2024-06-30 2024-07-23

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))