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 2963
C Manufacturing 2146
C_HTC High-technology manufacturing 2118
G-N Services of the business economy 2107
C_HTC_M Medium high-technology manufacturing 2063
C_LTC Low-technology manufacturing 1945
C_LTC_M Medium low-technology manufacturing 1844

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) 8144
HC Head count 7042

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 7673
RSE Researchers 7513

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 110
2023 927
2022 668
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