Business enterprise R&D expenditure by industry - BERD_INDU

Data - OECD

Info

Last observation: A: 2020 (N = 1923)

First observation: A: 1994 (N = 159)

Last data update: 02 aoû 2026, 08:56. Last compile: 17 aoû 2026, 22:41

Structure

COUNTRY

INDUSTRY

CRITERIA

MEASURE

TIME_FORMAT

UNIT

POWERCODE

REFERENCEPERIOD

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

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 .}