Douanes - douanes

Data - Douanes

Author

Ex

OEC World. html

flow

Code

NATIONAL_NC8PAYSE |>
  group_by(flow) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}

flow	Nobs
E	2730314

A129

Code

NATIONAL_NC8PAYSE |>
  left_join(A129, by = "A129") |>
  group_by(A129, a129) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

CPF6

Tous

Code

NATIONAL_NC8PAYSE |>
  mutate(CPF6 = as.numeric(CPF6)) |>
  left_join(CPF6, by = "CPF6") |>
  group_by(CPF6, Cpf6) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Correspondance CPF8 - A129

Code

NATIONAL_NC8PAYSE |>
  mutate(CPF6 = as.numeric(CPF6)) |>
  left_join(CPF6, by = "CPF6") |>
  left_join(A129, by = "A129") |>
  group_by(A129, a129, CPF6, Cpf6) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

country

Code

NATIONAL_NC8PAYSE |>
  left_join(country, by = "country") |>
  group_by(country, Country) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}