Financial balance sheets - non consolidated - SNA 2008 - SNA_TABLE720R

Data - OECD

Author

François Geerolf

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

TRANSACT

Code

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

SECTOR

Code

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

MEASURE

Code

SNA_TABLE720R %>%
  left_join(SNA_TABLE720R_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

MEASURE	Measure	Nobs
C	National currency, current prices	927222
CXCE	US $, current prices, current exchange rates, end of period	927222

LOCATION

Code

SNA_TABLE720R %>%
  left_join(SNA_TABLE720R_var$LOCATION, by = "LOCATION") %>%
  group_by(LOCATION, Location) %>%
  summarise(Nobs = n(),
            minyear = first(obsTime),
            maxyear = last(obsTime)) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Location)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

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 .}