High-tech exports - Exports of high technology products as a share of total exports (from 2007, SITC Rev. 4) - htec_si_exp4

Data - Eurostat

Author

François Geerolf

unit

Code 
htec_si_exp4 %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
unit Unit Nobs
PC Percentage 496

geo

Code 
htec_si_exp4 %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

time

Code 
htec_si_exp4 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()
time Nobs
2022 31
2021 31
2020 31
2019 31
2018 31
2017 31
2016 31
2015 31
2014 31
2013 31
2012 31
2011 31
2010 31
2009 31
2008 31
2007 31