Crédits et Dépôts en régions - CEFIT

Données - BDF

Auteur

François Geerolf

Info

Structure

Crédits à l’habitat par département (encours)

Paris, Rhône, Nord, Bouches-du-Rhône

Code 
CEFIT %>%
  
  filter(variable %in% c("CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D75",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D69",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D59",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D13")) %>%
  mutate(Departement = case_when(DETAIL_AREA == "D75" ~ "Paris",
                                  DETAIL_AREA == "D69" ~ "Rhône",
                                  DETAIL_AREA == "D59" ~ "Nord",
                                  DETAIL_AREA == "D13" ~ "Bouches-du-Rhône"),
         value = value/1e6) %>%
  ggplot(.) + geom_line(aes(x = date, y = value, color = Departement)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "1 year",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = dollar_format(accuracy = 1, prefix = "", suffix = " Mds€")) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Dernier mois disponible

Code 
CEFIT %>%
  
  filter(variable %in% c("CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D75",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D69",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D59",
                          "CEFIT.M.FR.N.R.A22.A.1.Z5.2000.EUR.E.D13")) %>%
  filter(!is.na(value)) %>%
  mutate(Departement = case_when(DETAIL_AREA == "D75" ~ "Paris",
                                  DETAIL_AREA == "D69" ~ "Rhône",
                                  DETAIL_AREA == "D59" ~ "Nord",
                                  DETAIL_AREA == "D13" ~ "Bouches-du-Rhône"),
         value = value/1e6) %>%
  group_by(Departement) %>%
  filter(date == max(date)) %>%
  ungroup() %>%
  select(Departement, date, "Mds€" = value) %>%
  arrange(desc(`Mds€`)) %>%
  print_table_conditional()
Departement date Mds€
Paris 2018-03-31 97.43651
Nord 2018-03-31 38.36874
Rhône 2018-03-31 37.40227
Bouches-du-Rhône 2018-03-31 34.49571

Crédits et dépôts, France entière (encours)

Ensemble des crédits vs dépôts

Code 
CEFIT %>%
  
  filter(variable %in% c("CEFIT.M.FR.N.R.A20.A.1.Z5.2000.EUR.E.N01",
                          "CEFIT.M.FR.N.R.L20.A.1.Z5.2000.EUR.E.N01")) %>%
  mutate(Serie = ifelse(BS_ITEM == "A20", "Crédits", "Dépôts"),
         value = value/1e6) %>%
  ggplot(.) + geom_line(aes(x = date, y = value, color = Serie)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "1 year",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = dollar_format(accuracy = 1, prefix = "", suffix = " Mds€")) +
  theme(legend.position = c(0.2, 0.85),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))