Prix de l’immobilier - RPP

Name: Prix de l'immobilier
Creator: François Geerolf
License: https://www.etalab.gouv.fr/licence-ouverte-open-licence/

Données - BDF

Auteur

François Geerolf

🇬🇧 English version

Structure

Prix au mètre carré des appartements neufs

France entière, Ile de France

Code

RPP |>
  
  filter(RPP_DWELLING == "NF") |>
  mutate(Variable = gsub("Prix au mètre carré des appartements neufs, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Prix au mètre carré des appartements neufs") +
  scale_y_log10(breaks = seq(0, 7000, 500),
                labels = dollar_format(suffix = " €/m2", prefix = "", accuracy = 1))

Indices de prix des logements anciens

100 = 2009

Log

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  mutate(value = 100*value/value[date == as.Date("2007-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_log10(breaks = seq(0, 7000, 10))

Lineaire

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_continuous(breaks = seq(0, 7000, 10))

100 = 2015

Log

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_log10(breaks = seq(0, 7000, 10))

Lineaire

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_continuous(breaks = seq(0, 7000, 10))

100 = 2001

Log

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  group_by(Variable) |>
  filter(date >= as.Date("2000-12-31")) |>
  mutate(value = 100*value/value[date == as.Date("2000-12-31")]) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_log10(breaks = seq(0, 7000, 10))

Lineaire

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  group_by(Variable) |>
  filter(date >= as.Date("2000-12-31")) |>
  mutate(value = 100*value/value[date == as.Date("2000-12-31")]) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_continuous(breaks = seq(0, 7000, 10))

100 = 1998

Lineaire

Code

plot_lineaire <- RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  filter(date >= as.Date("1997-12-31")) |>
  mutate(value = 100*value/value[date == as.Date("1997-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_continuous(breaks = seq(0, 7000, 50))

plot_lineaire

Log

Code

plot_log <- plot_lineaire + 
  ylab("") + scale_y_log10(breaks = seq(0, 7000, 50))

plot_log

Bind

Code

ggpubr::ggarrange(plot_lineaire + ggtitle("Echelle linéaire"), plot_log + ggtitle("Echelle log"), common.legend = T)

100 = 1999

Lineaire

Code

plot_lineaire <- RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  filter(date >= as.Date("1998-12-31")) |>
  mutate(value = 100*value/value[date == as.Date("1998-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1999, 2030, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_continuous(breaks = seq(0, 7000, 50))

plot_lineaire

Log

Code

plot_log <- plot_lineaire + 
  ylab("") + scale_y_log10(breaks = seq(0, 7000, 50))

plot_log

Bind

Code

ggpubr::ggarrange(plot_lineaire + ggtitle("Echelle linéaire"), plot_log + ggtitle("Echelle log"), common.legend = T)

100 = 2000

Paris, IDF, France

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF"),
         date >= as.Date("1999-12-31")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  mutate(value = 100*value/value[date == as.Date("1999-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens") +
  scale_y_log10(breaks = seq(0, 7000, 50))

Paris, France

Lineaire

Code

plot_lineaire <- RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF"),
         date >= as.Date("1998-12-31"),
         RPP_GEO_COV %in% c("CC", "00")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  mutate(value = 100*value/value[date == as.Date("1998-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal() + xlab("") + ylab("Indice des prix des logements anciens") +
  scale_x_date(breaks = seq(1999, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 7000, 50))

plot_lineaire

Log

Code

plot_log <- plot_lineaire +
  scale_y_log10(breaks = seq(0, 7000, 50)) + ylab("")

plot_log

Bind

Code

ggpubr::ggarrange(plot_lineaire + ggtitle("Echelle linéaire"),
                  plot_log + ggtitle("Echelle log"), common.legend = T)

100 = 2007

Paris, IDF, France

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF"),
         date >= as.Date("2007-12-31")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  mutate(value = 100*value/value[date == as.Date("2007-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 1), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens (2008 = 100") +
  scale_y_log10(breaks = seq(0, 7000, 10))

Paris, France

Code

RPP |>
  
  filter(RPP_DWELLING %in% c("ED", "EF"),
         date >= as.Date("2007-12-31"),
         RPP_GEO_COV %in% c("CC", "00")) |>
  mutate(Variable = gsub("Indices des prix des logements anciens, ", "", Variable)) |>
  group_by(Variable) |>
  mutate(value = 100*value/value[date == as.Date("2007-12-31")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 1), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Indice des prix des logements anciens (2008 = 100") +
  scale_y_log10(breaks = seq(0, 7000, 10))

Prix de vente moyen d’une maison neuve

Code

RPP |>
  
  filter(RPP_DWELLING == "NH") |>
  mutate(Variable = gsub("Prix de vente moyen d'une maison neuve, ","", Variable)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Prix de vente moyen d'une maison neuve") +
  scale_y_log10(breaks = seq(0, 7000, 20))

Related Data

Analyse des Données du Secteur Immobilier

source	dataset	Title	Updated
acpr	as160	Enquête annuelle du SGACPR sur le financement de l’habitat 2023 - as160	2026-08-01
bdf	BSI1	Agrégats monétaires - France - BSI1	2026-09-16
bdf	CPP	Prix immobilier commercial - CPP	2026-08-10
bdf	FM	Marché financier, taux - FM	2026-09-17
bdf	MIR1	Taux d’intérêt - France - MIR1	2026-09-04
bdf	RPP	Prix de l’immobilier - RPP	2026-09-17
bdf	immobilier	Immobilier en France - immobilier	2026-08-01
cgedd	nombre-vente-maison-appartement-ancien	Nombre de ventes de logements anciens cumulé sur 12 mois - nombre-vente-maison-appartement-ancien	2026-08-01
ecb	BSI	Balance Sheet Items - BSI	2026-09-17
insee	CONSTRUCTION-LOGEMENTS	Construction de logements - CONSTRUCTION-LOGEMENTS	2026-09-17
insee	ENQ-CONJ-ART-BAT	Conjoncture dans l’artisanat du bâtiment - ENQ-CONJ-ART-BAT	2026-09-17
insee	ENQ-CONJ-IND-BAT	Conjoncture dans l’industrie du bâtiment - ENQ-CONJ-IND-BAT	2026-09-17
insee	ENQ-CONJ-PROMO-IMMO	Conjoncture dans la promotion immobilière - ENQ-CONJ-PROMO-IMMO	2026-09-17
insee	ENQ-CONJ-TP	Conjoncture dans les travaux publics - ENQ-CONJ-TP	2026-09-17
insee	ILC-ILAT-ICC	Indices pour la révision d’un bail commercial ou professionnel - ILC-ILAT-ICC	2026-09-18
insee	IPLA-IPLNA-2015	Indices des prix des logements neufs et Indices Notaires-Insee des prix des logements anciens - IPLA-IPLNA-2015	2026-09-17
insee	IRL	Indice pour la révision d’un loyer d’habitation - IRL	2026-09-17
insee	PARC-LOGEMENTS	Estimations annuelles du parc de logements (EAPL) - PARC-LOGEMENTS	2026-09-04
insee	T_3217	3.217 – Principaux impôts par catégorie (En milliards d’euros) - t_3217	2026-09-18
insee	bdf2017	Budget de famille 2017 - bdf2017	2026-09-04
insee	conso-eff-fonction	Consommation effective des ménages par fonction - conso-eff-fonction	2026-08-02
notaires	arrdt	Prix au m² par arrondissement - arrdt	2026-09-17
notaires	dep	Prix au m² par département - dep	2026-09-17