Nombre de ventes de logements anciens cumulé sur 12 mois

Data - CGEDD

Author

Info

source	dataset	.html	.RData
cgedd	nombre-vente-maison-appartement-ancien	2024-09-26	2024-09-26

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-06-18
bdf	immobilier	2024-07-26	2024-06-18
bdf	MIR	2024-07-26	2024-07-01
bdf	MIR1	2024-07-26	2024-07-01
bdf	RPP	2024-07-26	2024-07-01
cgedd	nombre_transactions	NA	NA
insee	CONSTRUCTION-LOGEMENTS	2024-09-22	2024-09-22
insee	ENQ-CONJ-ART-BAT	2024-09-22	2024-09-22
insee	ENQ-CONJ-IND-BAT	2024-09-22	2024-09-22
insee	ENQ-CONJ-PROMO-IMMO	2024-09-22	2024-09-22
insee	ENQ-CONJ-TP	2024-09-22	2024-09-22
insee	ILC-ILAT-ICC	2024-09-22	2024-09-22
insee	INDICES_LOYERS	2024-09-22	2024-09-22
insee	IPLA-IPLNA-2015	2024-09-22	2024-09-22
insee	IRL	2024-09-22	2024-09-22
insee	PARC-LOGEMENTS	2024-09-22	2023-12-03
insee	SERIES_LOYERS	2024-09-22	2024-09-22
insee	t_dpe_val	2024-09-22	2024-09-02
notaires	arrdt	2024-06-30	2024-09-09
notaires	dep	2024-06-30	2024-09-08

LAST_COMPILE

LAST_COMPILE
2024-09-26

Last

Code

`nombre-vente-maison-appartement-ancien` %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  head(3) %>%
  print_table_conditional()

date	Nobs
2024-12-31	1
2024-11-30	1
2024-10-31	1

Nombre de transactions

Tous

Code

`nombre-vente-maison-appartement-ancien` |>
  ggplot() + theme_minimal() + xlab("") + ylab("Nombre de transactions") +
  geom_line(aes(x = date, y = nombre_transactions)) +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 6000, 100),
                labels = dollar_format(accuracy = 1, prefix = "", su = " K")) +
  theme(legend.position = c(0.3, 0.5),
        legend.title = element_blank()) +
  geom_vline(xintercept = as.Date("2022-02-01"), color = "red", linetype = "dashed")

2000-

Code

`nombre-vente-maison-appartement-ancien` |>
  filter(date >= as.Date("2000-01-01")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Nombre de transactions sur 12 mois") +
  geom_line(aes(x = date, y = nombre_transactions)) +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 6000, 100),
                labels = dollar_format(accuracy = 1, prefix = "", su = " K")) +
  theme(legend.position = c(0.3, 0.5),
        legend.title = element_blank())

2017-

Code

`nombre-vente-maison-appartement-ancien` |>
  filter(date >= as.Date("2017-01-01")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Nombre de transactions") +
  geom_line(aes(x = date, y = nombre_transactions)) +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 6000, 50),
                labels = dollar_format(accuracy = 1, prefix = "", su = " K")) +
  theme(legend.position = c(0.3, 0.5),
        legend.title = element_blank())