---
title: "Données canadiennes de prix des logements"
author: "François Pelletier"
format: pdf
---

Visiblement, notre premier ministre n'est pas très au courant du marché locatif québécois. Voici donc les données les plus à jour (octobre 2019) sur le marché canadien du logement, tirées du site de la SCHL et nettoyées pour les rendre utilisables et visualisables !

## Outils utilisés

Nous allons utiliser le langage R et les librairies `tidyverse`, `sf` et `ggplot2`.

```{r}
#| message: false
library(tidyverse)
library(sf)
```

## Données de la SCHL

Les données proviennent de l'Enquête sur les logements locatifs de la SCHL (octobre 2019). Le fichier source XLSX original n'est pas inclus dans ce dépôt, mais les données traitées sont disponibles au format GeoJSON.

```{r}
urban_rental_sf <- sf::read_sf("urban_rental_sf.geojson")
```

## Analyse

Voyons voir ce qu'il se passe à Montréal:

```{r}
urban_rental_sf %>%
  filter(centre=="Montréal" & SDRNOM=="Montréal") %>%
  select(centre,SDRNOM,bachelor,chambre_1,chambre_2,chambre_3) %>% 
  st_drop_geometry()
```

Le prix moyen d'un appartement d'une chambre, communément appelé un 3 1/2, est de 752$ en octobre 2019. Soit 50% plus cher que l'estimation la plus basse du premier ministre.

Voyons maintenant où il est possible d'obtenir un logement 3 1/2 à moins de 500$ au Québec

```{r}
srd_moins_500_ch1 <- urban_rental_sf %>%
  filter(chambre_1<=500 & PRNOM=="Quebec / Québec") %>%
  select(SDRNOM,chambre_1) %>% 
  arrange(desc(chambre_1)) 
```

```{r}
srd_moins_500_ch1 %>% 
  st_drop_geometry()
```


```{r}
nb_subdivisions_qc <- urban_rental_sf %>% 
  st_drop_geometry() %>% 
  filter(PRNOM=="Quebec / Québec") %>% 
  select(SDRNOM) %>% 
  distinct() %>% 
  count()
```

Il y a `r nb_subdivisions_qc$n` subdivisions de recensement urbaines au Québec, et `r n_distinct(srd_moins_500_ch1$SDRNOM)` d'entre elles, soit `r round(n_distinct(srd_moins_500_ch1$SDRNOM) / nb_subdivisions_qc,2) * 100` %, ont un coût moyen de moins de 500$ pour un appartement d'une chambre.

Visualisons le coût moyen des 3 1/2 pour toutes les subdivisions de recensement urbaines du Québec

```{r}
urban_rental_sf %>%
  filter(PRNOM=="Quebec / Québec") %>%
  select(SDRIDU, chambre_1) %>% 
  ggplot() +
  geom_sf(aes(fill = chambre_1))
```

Allons maintenant voir le centre démographique de Montréal:

```{r}
urban_rental_sf %>%
  filter(centre=="Montréal") %>%
  select(SDRIDU, chambre_1) %>% 
  ggplot() +
  geom_sf(aes(fill = chambre_1))
```

Et celui de Québec:

```{r}
urban_rental_sf %>%
  filter(centre=="Québec") %>%
  select(SDRIDU, chambre_1) %>% 
  ggplot() +
  geom_sf(aes(fill = chambre_1))
```

## Sources

- Enquête sur les logements locatifs, centres urbains : loyers moyens - [Octobre 2019](https://www.cmhc-schl.gc.ca/fr/professionals/housing-markets-data-and-research/housing-data/data-tables/rental-market/urban-rental-market-survey-data-average-rents-urban-centres)
- Subdivisions de recensement, Fichier des limites cartographiques - [Recensement de 2016](https://ouvert.canada.ca/data/fr/dataset/488875d9-2d7a-4486-92b4-a4336161dc58)