Distributional Wealth Accounts - DWA

Data - ECB

Author

François Geerolf

Last observation: Q1 2026 (N = 18207)

First observation: Q1 2009 (N = 2308)

Last data update: 01 sept. 2026, 01:25

Last compile: 02 sept. 2026, 23:02

Structure

France, 2023-Q2

All

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Instr_asset, Dwa_grp, Unit_measure, Account_entry, OBS_VALUE, everything()) |>
  arrange(Instr_asset, Dwa_grp, Unit_measure) |>
  #spread(Unit_measure, OBS_VALUE) %>%
  print_table_conditional()

NWA - Adjusted wealth (net)

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "NWA") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()

NUN - Housing Wealth

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "NUN") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()

F4B - Loans for house purchasing

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "F4B") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()

Deposits

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "F2M") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()

F3 - Debt Securities

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "F3") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()

F511 - Listed Shares

Code

DWA |>
  filter(TIME_PERIOD == "2023-Q2",
         REF_AREA == "FR",
         INSTR_ASSET == "F511") %>%
  select_if(~ n_distinct(.) > 1) |>
  select(-KEY, -DWA_GRP, -TITLE, -COMMENT_TS) |>
  select(Dwa_grp, Unit_measure, OBS_VALUE, everything()) |>
  select(-UNIT_MULT, -UNIT_MEASURE) |>
  arrange(Dwa_grp, Unit_measure) |>
  spread(Unit_measure, OBS_VALUE) |>
  print_table_conditional()