Balanced International Merchandise Trade Statistics (by CPA) - BIMTS_CPA

Data - OECD

Author

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