Business enterprise R&D expenditure by industry - BERD_INDU

Data - OECD

~/data/oecd/

Data Structure

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

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

COUNTRY

BERD_INDU %>%
  left_join(BERD_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

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

MEASURE

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

MEASURE	Measure	Nobs
DC6	PPP Dollars - Current prices	41403
DF6	2015 Dollars - Constant prices and PPPs	41403
MIO_NAC	National Currency	41403

CRITERIA

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

CRITERIA	Criteria	Nobs
MA	Main activity	100830
IO	Industry orientation	23379

obsTime

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

Table

2018

BERD_INDU %>%
  filter(obsTime == 2017,
         MEASURE == "DF6",
         CRITERIA == "MA",
         COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
  left_join(BERD_INDU_var$INDUSTRY, by = "INDUSTRY") %>%
  left_join(BERD_INDU_var$COUNTRY, by = "COUNTRY") %>%
  select(Country, INDUSTRY, Industry, obsValue) %>%
  spread(Country, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

2011

BERD_INDU %>%
  filter(obsTime == 2011,
         MEASURE == "DF6",
         CRITERIA == "MA",
         COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
  left_join(BERD_INDU_var$INDUSTRY, by = "INDUSTRY") %>%
  left_join(BERD_INDU_var$COUNTRY, by = "COUNTRY") %>%
  select(Country, INDUSTRY, Industry, obsValue) %>%
  spread(Country, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

2015

BERD_INDU %>%
  filter(obsTime == 2015,
         MEASURE == "DF6",
         CRITERIA == "MA",
         COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
  left_join(BERD_INDU_var$INDUSTRY, by = "INDUSTRY") %>%
  left_join(BERD_INDU_var$COUNTRY, by = "COUNTRY") %>%
  select(Country, INDUSTRY, Industry, obsValue) %>%
  spread(Country, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}