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 2969
C Manufacturing 2154
C_HTC High-technology manufacturing 2126
G-N Services of the business economy 2116
C_HTC_M Medium high-technology manufacturing 2071
C_LTC Low-technology manufacturing 1953
C_LTC_M Medium low-technology manufacturing 1852

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) 8170
HC Head count 7071

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 7700
RSE Researchers 7541

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
2024 164
2023 927
2022 669
2021 936
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