Business enterprise R&D personnel in high-tech sectors - NACE Rev. 2 - htec_sti_pers2

Data - Eurostat

Author

François Geerolf

nace_r2

Code 
htec_sti_pers2 %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
nace_r2 Nace_r2 Nobs
TOTAL Total - all NACE activities 2887
C Manufacturing 2138
C_HTC High-technology manufacturing 2106
G-N Services of the business economy 2099
C_HTC_M Medium high-technology manufacturing 2055
C_LTC Low-technology manufacturing 1941
C_LTC_M Medium low-technology manufacturing 1840

unit

Code 
htec_sti_pers2 %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
unit Unit Nobs
FTE Full-time equivalent (FTE) 8050
HC Head count 7016

prof_pos

Code 
htec_sti_pers2 %>%
  left_join(prof_pos, by = "prof_pos") %>%
  group_by(prof_pos, Prof_pos) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
prof_pos Prof_pos Nobs
TOTAL Total 7613
RSE Researchers 7453

geo

Code 
htec_sti_pers2 %>%
  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_sti_pers2 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()
time Nobs
2023 913
2022 666
2021 942
2020 796
2019 1028
2018 796
2017 1088
2016 807
2015 981
2014 693
2013 997
2012 790
2011 994
2010 792
2009 946
2008 726
2007 505
2006 322
2005 284