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

Data - Eurostat

Author

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	2722
C	Manufacturing	2026
G-N	Services of the business economy	1986
C_HTC	High-technology manufacturing	1968
C_HTC_M	Medium high-technology manufacturing	1933
C_LTC	Low-technology manufacturing	1831
C_LTC_M	Medium low-technology manufacturing	1726

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)	7580
HC	Head count	6612

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	7143
RSE	Researchers	7049

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
2022	660
2021	934
2020	794
2019	1034
2018	802
2017	1092
2016	810
2015	987
2014	698
2013	997
2012	793
2011	994
2010	795
2009	946
2008	730
2007	508
2006	328
2005	290