R&D personnel in the business enterprise sector by main activity - PERS_INDU

Data - OECD

Author

COUNTRY

Code

PERS_INDU %>%
  left_join(PERS_INDU_var$COUNTRY, by = "COUNTRY") %>%
  group_by(COUNTRY, Country) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Country)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

INDUSTRY

Code

PERS_INDU %>%
  left_join(PERS_INDU_var$INDUSTRY, by = "INDUSTRY") %>%
  group_by(INDUSTRY, Industry) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

FUNCTION

Code

PERS_INDU %>%
  left_join(PERS_INDU_var$FUNCTION, by = "FUNCTION") %>%
  group_by(FUNCTION, Function) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FUNCTION	Function	Nobs
RSE	Researchers	46888
_T	Total internal personnel	35322

MEASURE

Code

PERS_INDU %>%
  left_join(PERS_INDU_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

MEASURE	Measure	Nobs
FTE	Full time equivalent	82210

obsTime

Code

PERS_INDU %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}