Balanced International Merchandise Trade Statistics (by CPA) - BIMTS_CPA

Data - OECD


REPORTER

Code
BIMTS_CPA %>%
  left_join(BIMTS_CPA_var$REPORTER, by = "REPORTER") %>%
  group_by(REPORTER, Reporter) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

PARTNER

Code
BIMTS_CPA %>%
  left_join(BIMTS_CPA_var$PARTNER, by = "PARTNER") %>%
  group_by(PARTNER, Partner) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

CPA_VER_2_1

Code
BIMTS_CPA %>%
  left_join(BIMTS_CPA_var$CPA_VER_2_1, by = "CPA_VER_2_1") %>%
  group_by(CPA_VER_2_1, Cpa_ver_2_1) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

MEASURE

Code
BIMTS_CPA %>%
  left_join(BIMTS_CPA_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

obsTime

Code
BIMTS_CPA %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}