Nombre de ventes de logements anciens cumulé sur 12 mois - nombre-vente-maison-appartement-ancien

Data

Author

François Geerolf

Last data update: 01 août 2026, 21:01

Last compile: 02 sept. 2026, 22:44

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