Last observation: 2018 (N = 78)
First observation: 2001 (N = 70)
Last data update: 01 août 2026, 21:10
Last compile: 04 oct. 2026, 22:20
variable
Code
as107 |>
group_by(Variable, Line) |>
summarise(Nobs = n()) |>
arrange(Line) |>
print_table_conditional()year
Code
as107 |>
group_by(year) |>
summarise(Nobs = n()) |>
arrange(desc(year)) |>
print_table_conditional()| year | Nobs |
|---|---|
| 2018 | 78 |
| 2017 | 78 |
| 2016 | 78 |
| 2015 | 78 |
| 2014 | 78 |
| 2013 | 78 |
| 2012 | 78 |
| 2011 | 78 |
| 2010 | 78 |
| 2009 | 70 |
| 2008 | 70 |
| 2007 | 70 |
| 2006 | 70 |
| 2005 | 70 |
| 2004 | 70 |
| 2003 | 70 |
| 2002 | 70 |
| 2001 | 70 |
Production de prêts à l’habitat
Code
as107 |>
year_to_date2() |>
filter(str_detect(Variable, "^Production de prêts")) |>
ggplot() + geom_line(aes(x = date, y = value)) +
xlab("") + ylab("Production (millions d'euros)") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(labels = dollar_format(a = 1, su = "", pre = "", big.mark = " "))
Taux d’effort moyen
Code
as107 |>
year_to_date2() |>
filter(Variable == "Taux d'effort moyen") |>
ggplot() + geom_line(aes(x = date, y = value)) +
xlab("") + ylab("Taux d'effort moyen (%)") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
Durée moyenne des prêts
Code
as107 |>
year_to_date2() |>
filter(Variable == "Durée moyenne des prêts") |>
ggplot() + geom_line(aes(x = date, y = value)) +
xlab("") + ylab("Durée moyenne des prêts") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 100, 1),
labels = dollar_format(a = 1, su = " ans", pre = ""))
Taux d’endettement moyen des emprunteurs à l’octroi
Code
as107 |>
year_to_date2() |>
filter(Variable == "Taux d'endettement moyen des emprunteurs à l'octroi") |>
filter(value > 0) |>
ggplot() + geom_line(aes(x = date, y = value)) +
xlab("") + ylab("Taux d'endettement moyen des emprunteurs à l'octroi") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y"))
Taux d’apport
Code
as107 |>
year_to_date2() |>
filter(str_detect(Variable, "^(Taux d'apport|[0-9]+% ≤ Taux d'apport)")) |>
ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("Part des emprunteurs (%)") +
scale_color_manual(values = viridis(5)[1:4]) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 5),
labels = scales::percent_format(accuracy = 1)) +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank())
Taux d’effort
Code
as107 |>
year_to_date2() |>
filter(str_detect(Variable, "^(Taux d'effort [<>]|[0-9]+% < Taux d'effort)")) |>
ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("Part des emprunteurs (%)") +
scale_color_manual(values = viridis(5)[1:4]) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 5),
labels = scales::percent_format(accuracy = 1)) +
scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank())