Info
Derniers
Dernier. html
Crédits aux particuliers, Juin 2023. pdf
Liste Données BDF Crédit aux particuliers. html
Crédits aux particuliers, Avril 2021. html / pdf
Crédits aux particuliers, Octobre 2021. html / pdf
Data Structure
Code
BSI1_metadata %>%
select(key, name) %>%
unique %>%
print_table_conditional()
FREQ |
Périodicité |
REF_AREA |
Zone géographique - ISO2 |
ADJUSTMENT |
Correction statistique |
BS_REP_SECTOR |
Secteur de référence |
BS_ITEM |
Poste de bilan |
MATURITY_ORIG |
Maturité |
DATA_TYPE |
Type de données |
COUNT_AREA |
Zone géo. de contrepartie |
BS_COUNT_SECTOR |
Secteur contrepartie |
CURRENCY_TRANS |
Devise de transaction |
BS_SUFFIX |
Suffixe |
FREQ Frequency
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
M |
Mensuel |
591968 |
Q |
Trimestriel |
93946 |
REF_AREA Reference area - ISO2
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(REF_AREA, by = "REF_AREA") %>%
group_by(REF_AREA, Ref_area) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
FR |
France |
525606 |
U2 |
Zone Euro (composition évolutive) |
160308 |
ADJUSTMENT Adjustment
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(ADJUSTMENT, by = "ADJUSTMENT") %>%
group_by(ADJUSTMENT, Adjustment) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
N |
Brut |
567180 |
Y |
CVS/CJO |
117702 |
S |
CVS |
1032 |
BS_REP_SECTOR Reference sector breakdown
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(BS_REP_SECTOR, by = "BS_REP_SECTOR") %>%
group_by(BS_REP_SECTOR, Bs_rep_sector) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
A |
IFM ( hors Eurosystème) |
209973 |
V |
IFM, administrations centrales et banques postales |
181373 |
R |
Etablissements de crédit |
95671 |
N |
Banque Centrale Nationale |
52595 |
C |
Eurosystème |
44676 |
U |
Institutions monétaires et financières (IFM) |
42486 |
7 |
Agrégation IF métropole |
16585 |
G |
Administrations centrales et la poste |
13120 |
2 |
Banques |
8318 |
1 |
Banques FBF |
5275 |
4 |
CDC |
5206 |
5 |
Banques mutualistes |
5171 |
F |
OPCVM monétaires |
2785 |
3 |
FCC |
1166 |
8 |
IFM divers non ventilé |
735 |
6 |
Agrégation IFM |
608 |
AU |
Autres |
57 |
CB |
Canal bancaire |
57 |
CC |
Spécialisés crédit consommation |
57 |
BS_ITEM Balance sheet item
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(BS_ITEM, by = "BS_ITEM") %>%
group_by(BS_ITEM, Bs_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
MATURITY_ORIG Maturity origin
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(MATURITY_ORIG, by = "MATURITY_ORIG") %>%
group_by(MATURITY_ORIG, Maturity_orig) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
A |
Total |
560210 |
L |
Jusqu`à 2 ans |
37179 |
X |
Non applicable |
22402 |
H |
Plus de 2 ans |
18559 |
D |
Jusqu`à 3 mois |
14154 |
F |
Jusqu`à 1 an |
10590 |
M |
Maturité jusqu`à 2 ans et remboursables avec préavis de moins de 3 mois |
6933 |
K |
Plus de 1 an |
3718 |
J |
Supérieur à 5 ans |
3553 |
I |
Plus de 1 et jusqu`à 5 ans |
3366 |
E |
Supérieur à 3 mois |
3282 |
G |
Supérieur à 1 an et inférieur à 2 ans |
1968 |
DATA_TYPE Data type
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(DATA_TYPE, by = "DATA_TYPE") %>%
group_by(DATA_TYPE, Data_type) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
1 |
Encours |
285207 |
4 |
Flux |
213038 |
I |
Indices notionnels des stocks |
173763 |
S |
Flux cumulés sur 1 an |
10184 |
Q |
Contribution au taux de croissance annuel de M3 |
1777 |
U |
Provisions |
1211 |
8 |
Valorisation |
596 |
D |
Variation d`encours |
138 |
COUNT_AREA Counterpart area
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(COUNT_AREA, by = "COUNT_AREA") %>%
group_by(COUNT_AREA, Count_area) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
U6 |
Résidents |
386198 |
U2 |
Zone Euro (composition évolutive) |
138986 |
Z5 |
Monde non ventilé (geographiquement) |
85645 |
U5 |
Autres pays de la Zone Euro (Tous pays excepté zone de référence) |
39555 |
U4 |
Hors Zone Euro |
22660 |
Z9 |
Reste du Monde |
1710 |
AT |
Autriche |
748 |
BE |
Belgique |
748 |
DE |
Allemagne |
748 |
DK |
Danemark |
748 |
ES |
Espagne |
748 |
FI |
Finlande |
748 |
GB |
Royaume-Uni |
748 |
GR |
Grèce |
748 |
IE |
Irlande |
748 |
IT |
Italie |
748 |
LU |
Luxembourg |
748 |
NL |
Pays-Bas |
748 |
PT |
Portugal |
748 |
SE |
Suède |
748 |
D4 |
Extra zone euro à 15 (composition fixe) |
688 |
BS_COUNT_SECTOR Counterpart sector
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(BS_COUNT_SECTOR, by = "BS_COUNT_SECTOR") %>%
group_by(BS_COUNT_SECTOR, Bs_count_sector) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
2300 |
Administrations publiques hors administrations centrales et secteur privé hors IFMs |
167786 |
0000 |
Secteur de contrepartie non précisée (0000) |
139078 |
2240 |
Sociétés non financières (S11) |
54466 |
2100 |
Administrations publiques |
38955 |
1000 |
Institutions financières monétaires |
36172 |
2250 |
Ménages et ISBLSM (S14 et S15) |
33565 |
2200 |
secteur privé financier et non financier (hors IFMs) |
30365 |
2251 |
Ménages |
24232 |
2000 |
Non IFM |
23708 |
2254FR |
Particuliers (S14) |
23630 |
2310FR |
Agents non financiers (2220+2230+2100+2252) |
22658 |
2220 |
Sociétés d`assurances, fonds de pensions |
15013 |
2210 |
Autres institutions financières (2210) |
14254 |
2253 |
Entrepreneurs individuels |
9538 |
2110 |
Etat |
9497 |
2252 |
Institutions sans but lucratif au service des ménages (S15) |
8032 |
2120 |
Autres administrations publiques |
5437 |
2211 |
Autres Intermédiaires Financières - dont organismes de titrisation |
5050 |
2122 |
Administrations publiques locales |
3394 |
00BK |
Banques non résidentes |
3336 |
00NB |
Secteur non bancaire, non résident |
3336 |
2123 |
Sécurité Sociale |
3020 |
22F0 |
NA |
2664 |
2311FR |
Autres agents (2100+2220+2252) |
2305 |
2230 |
Ménages et sociétés non financières (S11+S14+S15) |
2283 |
2121 |
Administrations d`Etat fédérés |
1309 |
2320FR |
Tous agents hors particuliers (2310FR-2254FR) |
1191 |
2260 |
OPC non monétaires |
951 |
MIC |
Micro-entreprises |
502 |
00NR |
Secteur non bancaire, non résident, hors administrations publiques |
187 |
CURRENCY_TRANS Currency of transaction
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
left_join(CURRENCY_TRANS, by = "CURRENCY_TRANS") %>%
group_by(CURRENCY_TRANS, Currency_trans) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
Z01 |
Toutes monnaies confondues |
669977 |
EUR |
Euro |
2746 |
XAU |
Or Monetaire |
1971 |
CHF |
Franc Suisse |
1870 |
JPY |
Yen |
1870 |
USD |
Dollar des Etats-Unis |
1870 |
Z03 |
Autres devises de l`UE (hors euro) |
1870 |
Z04 |
Autres devises (hors UE) |
1870 |
Z05 |
Devises hors UE et hors USD, CHF et JPY |
1870 |
Tables
Comptes de patrimoine
Code
ig_b("insee", "ip1967", "table2")
Comptes financiers
Code
ig_b("insee", "ip1967", "table2")
Encours financiers BDF
Fin 2023
Code
ig_b("bdf", "ER-2023_web", "T1")
Fin 2022
Code
ig_b("bdf", "er-2022_rapport_web", "T1")
Livrets réglementés
Panorama
- L’épargne réglementée en 2022. pdf
Code
ig_b("bdf", "er-2022_rapport_web", "G1")
LEP: Livret Epargne Populaire
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(BS_ITEM == "L23FRLP",
DATA_TYPE == "1",
BS_REP_SECTOR == "U") %>%
arrange(desc(date)) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret d'Epargne Populaire") +
geom_line(aes(x = date, y = value / 1000)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 100, 5),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Livrets A et Bleus, PEL
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRLA.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Livret A et PEL, LEP, Déôts vue
Tous
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L21.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Livret A et PEL
Tous
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2012-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("2011-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Dépôts à vue, Livret ordinaire, PEL, Livret A, LDDS
Tous
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLO.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRCT.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
arrange(date) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.8),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2012-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLO.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRCT.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("2011-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.8),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Livret ordinaire, PEL, Livret A, LDDS
Tous
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLO.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
arrange(date) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2000-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLO.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("1999-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2012-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLO.A.1.U6.2250.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("2011-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
PEL, Livret A, LDDS
Tous
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
arrange(date) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2000-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("1999-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2012-
Code
BSI1 %>%
filter(variable %in% c("BSI1.M.FR.N.A.L23FRAB.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L22FRPL.A.1.U6.2251.Z01.E",
"BSI1.M.FR.N.A.L23FRLD.A.1.U6.2251.Z01.E")) %>%
left_join(BSI1_var, by = "variable") %>%
filter(date >= as.Date("2011-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu, LDDS") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
PEL, tous
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(BS_ITEM %in% c("L22FRPL")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Livret A , Livret Bleu") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.6),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(0, 1000, 20),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Dépôts à vue (L21)
2300
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(BS_ITEM %in% c("L21"),
variable == "BSI1.M.FR.N.A.L21.A.1.U6.2300.Z01.E") %>%
ggplot + theme_minimal() + xlab("") + ylab("Dépôts à vue") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.6),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(100, 3000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2250 - Ménages
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(BS_ITEM %in% c("L21"),
variable == "BSI1.M.FR.N.A.L21.A.1.U6.2250.Z01.E") %>%
ggplot + theme_minimal() + xlab("") + ylab("Dépôts à vue") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.6),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(100, 3000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Dépôts (L20)
Tous
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(variable %in% c("BSI1.M.FR.N.A.L20.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L20.A.1.U6.2254FR.Z01.E",
"BSI1.M.FR.N.A.L21.A.1.U6.2300.Z01.E")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Dépôts à vue") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.6),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(100, 3000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
2012-
Code
BSI1 %>%
left_join(BSI1_var, by = "variable") %>%
filter(variable %in% c("BSI1.M.FR.N.A.L20.A.1.U6.2250.Z01.E",
"BSI1.M.FR.N.A.L20.A.1.U6.2254FR.Z01.E",
"BSI1.M.FR.N.A.L21.A.1.U6.2300.Z01.E"),
date >= as.Date("2011-12-31")) %>%
ggplot + theme_minimal() + xlab("") + ylab("Dépôts, Dépôts à vue") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(100, 3000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Encours crédit entreprises
2240: crédits entrerpises
Linear
Code
data_ombeline <- BSI1 %>%
group_by(variable) %>%
summarise(max_date = max(date),
min_date = min(date)) %>%
left_join(variable, by = "variable") %>%
filter(BS_COUNT_SECTOR == "2240") %>%
arrange(desc(max_date))
save(data_ombeline, file = "~/data_ombeline.RData")
Encours crédit à l’habitat
Linear
Code
BSI1 %>%
filter(grepl("BSI1.M.FR.N.R.A220Z.A.1.U6.2250.Z01.E", variable) |
grepl("BSI1.M.FR.N.R.A220Z.A.1.U6.2254FR.Z01.E", variable) |
grepl("BSI1.M.FR.N.2.A22.A.1.U6.2251.Z01.E", variable)) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(-10000, 10000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Log
Code
BSI1 %>%
filter(grepl("BSI1.M.FR.N.R.A220Z.A.1.U6.2250.Z01.E", variable) |
grepl("BSI1.M.FR.N.R.A220Z.A.1.U6.2254FR.Z01.E", variable) |
grepl("BSI1.M.FR.N.2.A22.A.1.U6.2251.Z01.E", variable)) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.4, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(-10000, 10000, 100),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Encours crédit à la consommation
Linear
Code
BSI1 %>%
filter(grepl("BSI1.M.FR.N.R.A210Z.A.1.U6.2254FR.Z01.E", variable) |
grepl("BSI1.M.FR.N.R.A210Z.A.1.U6.2250.Z01.E", variable)) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_continuous(breaks = seq(-10000, 10000, 10),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Log
Code
BSI1 %>%
filter(grepl("BSI1.M.FR.N.R.A210Z.A.1.U6.2254FR.Z01.E", variable) |
grepl("BSI1.M.FR.N.R.A210Z.A.1.U6.2250.Z01.E", variable)) %>%
left_join(BSI1_var, by = "variable") %>%
ggplot + theme_minimal() + xlab("") + ylab("") +
geom_line(aes(x = date, y = value / 1000, color = Variable)) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.5, 0.9),
legend.title = element_blank(),
legend.direction = "vertical") +
scale_y_log10(breaks = seq(-10000, 10000, 10),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))