Business enterprise R-D expenditure by industry - BERD_INDUSTRY

Data - OECD

~/data/oecd/

Data Structure

BERD_INDUSTRY_var %>%
  pluck("VAR_DESC") %>%
  {if (is_html_output()) print_table(.) else .}

id	description
INDUSTRY	Industry
UNITS_EXP	Measure
CRITERIA	Classification criteria
COU	Country
YEAR	Year
OBS_VALUE	Observation Value
TIME_FORMAT	Time Format
OBS_STATUS	Observation Status
UNIT	Unit
POWERCODE	Unit multiplier
REFERENCEPERIOD	Reference period

COU

BERD_INDUSTRY %>%
  left_join(BERD_INDUSTRY_var$COU, by = "COU") %>%
  group_by(COU, Cou) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Cou)),
         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

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

UNITS_EXP

BERD_INDUSTRY %>%
  left_join(BERD_INDUSTRY_var$UNITS_EXP, by = "UNITS_EXP") %>%
  group_by(UNITS_EXP, Units_exp) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

UNITS_EXP	Units_exp	Nobs
NC6	National Currency	38542
DF6	2010 Dollars - Constant prices and PPPs	38203
DC6	PPP Dollars - Current prices	38189

CRITERIA

BERD_INDUSTRY %>%
  left_join(BERD_INDUSTRY_var$CRITERIA, by = "CRITERIA") %>%
  group_by(CRITERIA, Criteria) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

CRITERIA	Criteria	Nobs
MAIN_ACT	R&D by main activity	95809
PROD_FIELD	R&D by product field	19125

obsTime

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