Business enterprise R-D expenditure by industry - BERD_INDUSTRY

Data - OECD

Author

Data Structure

Code

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

Code

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

Code

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

Code

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

Code

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

Code

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