[~](https://fgeerolf.com/)/data/oecd/
Nobs - Javascript
Code
SNA_TABLE720 %>%
left_join(SNA_TABLE720_var %>% pluck("TRANSACT"), by = c("TRANSACT" = "id")) %>%
rename(`TRANSACT Description` = label) %>%
left_join(SNA_TABLE720_var %>% pluck("SECTOR"), by = c("SECTOR" = "id")) %>%
rename(`SECTOR Description` = label) %>%
group_by(TRANSACT, `TRANSACT Description`, SECTOR, MEASURE) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
Data Structure
Code
SNA_TABLE720_var$VAR_DESC %>%
{if (is_html_output()) print_table(.) else .}
LOCATION |
Country |
TRANSACT |
Transaction |
SECTOR |
Sector |
MEASURE |
Measure |
TIME |
Year |
OBS_VALUE |
Observation Value |
TIME_FORMAT |
Time Format |
OBS_STATUS |
Observation Status |
UNIT |
Unit |
POWERCODE |
Unit multiplier |
REFERENCEPERIOD |
Reference period |
TRANSACT
Code
SNA_TABLE720 %>%
left_join(SNA_TABLE720_var %>% pluck("TRANSACT"), by = c("TRANSACT" = "id")) %>%
rename(`TRANSACT Description` = label) %>%
group_by(TRANSACT, `TRANSACT Description`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
SECTOR
Code
SNA_TABLE720 %>%
left_join(SNA_TABLE720_var %>% pluck("SECTOR"), by = c("SECTOR" = "id")) %>%
rename(`SECTOR Description` = label) %>%
group_by(SECTOR, `SECTOR Description`) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
MEASURE
Code
SNA_TABLE720 %>%
left_join(SNA_TABLE720_var %>% pluck("MEASURE"), by = c("MEASURE" = "id")) %>%
rename(`MEASURE Description` = label) %>%
group_by(MEASURE, `MEASURE Description`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}
C |
National currency, current prices |
426364 |
CXCE |
US $, current prices, current exchange rates, end of period |
426364 |