Financial balance sheets - non-consolidated (Quarterly) - PGI_Q_F_STCKS

Data - OECD

Author

Code

load_data("oecd/PGI_Q_F_STCKS.RData")
load_data("oecd/PGI_Q_F_STCKS_var.RData")

Layout (United States)

OECD Website. html

SECTOR

Code

PGI_Q_F_STCKS %>%
  left_join(PGI_Q_F_STCKS_var %>% pluck("SECTOR"), by = c("SECTOR" = "id")) %>%
  rename(`SECTOR Description` = label) %>%
  group_by(SECTOR, `SECTOR Description`) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}

SECTOR	SECTOR Description	Nobs
S1	Total economy	144070
S11	Non-financial corporations	119016
S12	Financial corporations	129506
S121	The central bank	34226
S121_S122	The central bank and other monetary financial institutions	129746
S122	Other monetary financial institutions	42176
S123	Other financial intermediaries	72870
S123_S124	Other financial intermediaries and financial auxiliaries	126760
S124	Financial auxiliaries	53752
S125	Insurance corporations and pension funds	125756
S13	General government	123158
S1311	Central government	34930
S1312	State government	22646
S1313	Local government	16456
S1314	Social security funds	10584
S14	Households	15296
S14_S15	Households and non-profit institutions serving households	104722
S15	Non-profit institutions serving households	12038
S2	Rest of the world	135090
SN	Not sectorized	62

Nobs - Javascript

Code

PGI_Q_F_STCKS %>%
  left_join(PGI_Q_F_STCKS_var$TRANSACTION %>% rename(TRANSACTION_desc = label), 
            by = c("TRANSACTION" = "id")) %>%
  group_by(TRANSACTION, TRANSACTION_desc, SECTOR, MEASURE) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Data Structure

Code

PGI_Q_F_STCKS_var$VAR_DESC %>%
  {if (is_html_output()) print_table(.) else .}

id	description
LOCATION	Country
TRANSACTION	Transaction
SECTOR	Sector
MEASURE	Measure
ADJUSTED	Adjusted
TIME	Period & Frequency
OBS_VALUE	Observation Value
TIME_FORMAT	Time Format
OBS_STATUS	Observation Status

TRANSACTION

Code

PGI_Q_F_STCKS %>%
  left_join(PGI_Q_F_STCKS_var %>% pluck("TRANSACTION"), by = c("TRANSACTION" = "id")) %>%
  rename(`TRANSACTION Description` = label) %>%
  group_by(TRANSACTION, `TRANSACTION Description`) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

MEASURE

Code

PGI_Q_F_STCKS %>%
  left_join(PGI_Q_F_STCKS_var %>% pluck("MEASURE"), by = c("MEASURE" = "id")) %>%
  rename(`MEASURE Description` = label) %>%
  group_by(MEASURE, `MEASURE Description`) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ex 1: Data

Code

PGI_Q_F_STCKS %>%
  filter(TRANSACTION == "SBF90NC",
         )

# # A tibble: 40,200 × 9
#    LOCATION TRANSACTION SECTOR MEASURE ADJUSTED TIME_FORMAT obsTime obsValue
#    <chr>    <chr>       <chr>  <chr>   <chr>    <chr>       <chr>      <dbl>
#  1 USA      SBF90NC     S1     CAR     NSA      P3M         1960-Q1    79417
#  2 USA      SBF90NC     S1     CAR     NSA      P3M         1960-Q2    78998
#  3 USA      SBF90NC     S1     CAR     NSA      P3M         1960-Q3    83279
#  4 USA      SBF90NC     S1     CAR     NSA      P3M         1960-Q4    75180
#  5 USA      SBF90NC     S1     CAR     NSA      P3M         1961-Q1    77335
#  6 USA      SBF90NC     S1     CAR     NSA      P3M         1961-Q2    81794
#  7 USA      SBF90NC     S1     CAR     NSA      P3M         1961-Q3    81758
#  8 USA      SBF90NC     S1     CAR     NSA      P3M         1961-Q4    71037
#  9 USA      SBF90NC     S1     CAR     NSA      P3M         1962-Q1    77900
# 10 USA      SBF90NC     S1     CAR     NSA      P3M         1962-Q2    84537
# # ℹ 40,190 more rows
# # ℹ 1 more variable: OBS_STATUS <chr>