SNA_TABLE12_SNA93 %>%
left_join(SNA_TABLE12_SNA93_var$TRANSACT %>%
setNames(c("TRANSACT", "Transact")), by = "TRANSACT") %>%
left_join(SNA_TABLE12_SNA93_var$SECTOR %>%
setNames(c("SECTOR", "Sector")), by = "SECTOR") %>%
group_by(TRANSACT, Transact, SECTOR, Sector) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}| id | description |
|---|---|
| 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 |
| id | label |
|---|---|
| GS13 | General government |
| GS1311 | Central government |
| GS1312 | State government |
| S1 | Total economy |
| GS1313 | Local government |
| GS1314 | Social security funds |