Prix immobilier commercial

Data - BDF

~/data/bdf/

Info

source	dataset	.html	.RData
bdf	CPP	2024-05-08	2024-05-10

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-10
bdf	FM	2024-05-08	2024-05-08
bdf	immobilier	2024-05-08	2024-05-07
bdf	MIR	2024-05-08	2024-05-10
bdf	MIR1	2024-05-08	2024-05-10
bdf	RPP	2024-05-08	2024-05-10
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-05-09	2024-05-09
insee	ENQ-CONJ-TP	2024-05-09	2024-05-09
insee	ILC-ILAT-ICC	2024-05-09	2024-05-09
insee	INDICES_LOYERS	2024-05-09	2024-05-09
insee	IPLA-IPLNA-2015	2024-05-09	2024-05-09
insee	IRL	2024-05-09	2024-05-09
insee	PARC-LOGEMENTS	2024-05-09	2023-12-03
insee	SERIES_LOYERS	2024-05-09	2024-05-09
insee	t_dpe_val	2024-05-09	2024-03-04
notaires	arrdt	2024-04-08	2024-04-08
notaires	dep	2024-04-08	2024-04-08

FREQ Frequency

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

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

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

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

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