Financial balance sheets - non consolidated - SNA 2008 - SNA_TABLE720R

Data - OECD

Author

François Geerolf


Info

Last observation: A: 2018 (N = 71318)

First observation: A: 1960 (N = 2018)

Last data update: 02 aoû 2026, 09:11. Last compile: 18 aoû 2026, 03:07

Structure

Layout

  • OECD Website. html

United States

Financial / Non-Financial

Nobs - Javascript

Code 
SNA_TABLE720R |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  group_by(TRANSACT, Transact, SECTOR, MEASURE) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Data Structure

Code 
SNA_TABLE720R_var$VAR_DESC %>%
  {if (is_html_output()) print_table(.) else .}
id description
LOCATION Country
TRANSACT Transaction
SECTOR Sector
MEASURE Measure
TIME Time
OBS_VALUE Observation Value
TIME_FORMAT Time Format
OBS_STATUS Observation Status
UNIT Unit
POWERCODE Unit multiplier
REFERENCEPERIOD Reference period

Financial Net Worth

Germany VS France

Countries

United States

Code 
SNA_TABLE720R |>
  filter(LOCATION == "USA",
         obsTime == "2018",
         MEASURE == "C",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Germany

Code 
SNA_TABLE720R |>
  filter(LOCATION == "DEU",
         obsTime == "2018",
         MEASURE == "C",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France

Code 
SNA_TABLE720R |>
  filter(LOCATION == "FRA",
         obsTime == "2018",
         MEASURE == "C",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Japan

Code 
SNA_TABLE720R |>
  filter(LOCATION == "JPN",
         MEASURE == "C",
         obsTime == "2017",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Switzerland

Code 
SNA_TABLE720R |>
  filter(LOCATION == "CHE",
         MEASURE == "C",
         obsTime == "2018",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Sweden

Code 
SNA_TABLE720R |>
  filter(LOCATION == "SWE",
         MEASURE == "C",
         obsTime == "2018",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Finland

Code 
SNA_TABLE720R |>
  filter(LOCATION == "FIN",
         MEASURE == "C",
         obsTime == "2018",
         SECTOR %in% c("RS1", "RS11", "RS12", "RS13", "RS14_S15")) |>
  left_join(SNA_TABLE720R_var$TRANSACT, by = "TRANSACT") |>
  left_join(SNA_TABLE1 |>
              filter(TRANSACT == "B1_GE",
                     MEASURE == "C") |>
              select(obsTime, LOCATION, B1_GE = obsValue), 
            by = c("LOCATION", "obsTime")) %>%
  mutate(obsValue = round(100*obsValue / B1_GE, 1) |> paste0("%"),
         SECTOR = gsub("R", "", SECTOR)) |>
  select(SECTOR, TRANSACT, Transact, obsValue) |>
  unique() |>
  mutate(SECTOR = paste0('<img src="../../icon/sector/vsmall/', SECTOR, '.png" alt="All">')) |>
  spread(SECTOR, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}