Quarterly International Trade Statistics (by partner country) - QITS

Data - OECD

Author

Info

LAST_DOWNLOAD

dataset	LAST_DOWNLOAD
QITS	2023-09-09

LAST_COMPILE

LAST_COMPILE
2024-09-15

Last

obsTime	Nobs
2023-Q1	1118

LOCATION

Code

QITS %>%
  left_join(QITS_var$LOCATION, by = "LOCATION") %>%
  group_by(LOCATION, Location) %>%
  summarise(Nobs = n()) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Location)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

FLOW

Code

QITS %>%
  left_join(QITS_var$FLOW, by = "FLOW") %>%
  group_by(FLOW, Flow) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FLOW	Flow	Nobs
IMP	Imports	131433
EXP	Exports	129819

PARTNER

Code

QITS %>%
  left_join(QITS_var$PARTNER, by = "PARTNER") %>%
  group_by(PARTNER, Partner) %>%
  summarise(Nobs = n()) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Partner)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

FREQUENCY

Code

QITS %>%
  left_join(QITS_var$FREQUENCY, by = "FREQUENCY") %>%
  group_by(FREQUENCY, Frequency) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FREQUENCY	Frequency	Nobs
Q	Quarterly	210278
A	Annual	50974