| source | dataset | Title | Download | Compile |
|---|---|---|---|---|
| oecd | BERD_MA_SOF | Business enterprise R&D expenditure by main activity (focussed) and source of funds | 2023-09-09 | 2024-04-15 |
| ec | INDUSTRY | Industry (sector data) | 2023-10-01 | 2023-10-01 |
| eurostat | ei_isin_m | Industry - monthly data - index (2015 = 100) (NACE Rev. 2) - ei_isin_m | 2024-04-09 | 2024-04-15 |
| eurostat | htec_trd_group4 | High-tech trade by high-tech group of products in million euro (from 2007, SITC Rev. 4) | 2024-04-09 | 2024-04-15 |
| eurostat | nama_10_a64 | National accounts aggregates by industry (up to NACE A*64) | 2024-04-15 | 2024-04-01 |
| eurostat | nama_10_a64_e | National accounts employment data by industry (up to NACE A*64) | 2024-04-15 | 2024-04-15 |
| eurostat | namq_10_a10_e | Employment A*10 industry breakdowns | 2024-04-15 | 2024-04-15 |
| eurostat | road_eqr_carmot | New registrations of passenger cars by type of motor energy and engine size - road_eqr_carmot | 2024-04-09 | 2024-04-15 |
| eurostat | sts_inpp_m | Producer prices in industry, total - monthly data | 2024-04-15 | 2024-04-15 |
| eurostat | sts_inppd_m | Producer prices in industry, domestic market - monthly data | 2024-04-15 | 2024-04-15 |
| eurostat | sts_inpr_m | Production in industry - monthly data | 2024-04-09 | 2024-04-15 |
| eurostat | sts_intvnd_m | Turnover in industry, non domestic market - monthly data - sts_intvnd_m | 2024-04-15 | 2024-04-15 |
| fred | industry | Manufacturing, Industry | 2024-04-15 | 2024-04-15 |
| oecd | ALFS_EMP | Employment by activities and status (ALFS) | 2024-01-26 | 2024-04-16 |
| oecd | GBARD_NABS2007 | Government budget allocations for R and D | 2023-11-22 | 2024-04-15 |
| oecd | MEI_REAL | Production and Sales (MEI) | 2024-04-08 | 2024-04-15 |
| oecd | MSTI_PUB | Main Science and Technology Indicators | 2023-10-04 | 2024-04-15 |
| oecd | SNA_TABLE4 | PPPs and exchange rates | 2024-02-11 | 2024-04-15 |
| wdi | NV.IND.EMPL.KD | Industry, value added per worker (constant 2010 USD) | 2024-04-14 | 2024-01-06 |
| wdi | NV.IND.MANF.CD | Manufacturing, value added (current USD) | 2024-04-14 | 2024-04-14 |
| wdi | NV.IND.MANF.ZS | Manufacturing, value added (% of GDP) | 2024-04-14 | 2024-01-06 |
| wdi | NV.IND.TOTL.KD | Industry (including construction), value added (constant 2015 USD) - NV.IND.TOTL.KD | 2024-04-14 | 2024-01-06 |
| wdi | NV.IND.TOTL.ZS | Industry, value added (including construction) (% of GDP) | 2024-04-14 | 2024-01-06 |
| wdi | SL.IND.EMPL.ZS | Employment in industry (% of total employment) | 2024-04-14 | 2024-01-06 |
| wdi | TX.VAL.MRCH.CD.WT | Merchandise exports (current USD) | 2024-04-14 | 2024-01-06 |
| LAST_COMPILE |
|---|
| 2024-04-16 |
| obsTime | Nobs |
|---|---|
| 2020 | 4749 |
BERD_MA_SOF %>%
left_join(BERD_MA_SOF_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 .}BERD_MA_SOF %>%
left_join(BERD_MA_SOF_var$SECTFUND, by = "SECTFUND") %>%
group_by(SECTFUND, Sectfund) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| SECTFUND | Sectfund | Nobs |
|---|---|---|
| _T | Total funding | 38058 |
| BES | Business enterprise sector | 36678 |
| GOV | Government sector | 35442 |
| ROW | Rest of the world (ROW) | 34647 |
| PNP | Private non-profit sector | 28224 |
| HES | Higher education sector | 25755 |
BERD_MA_SOF %>%
left_join(BERD_MA_SOF_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 | 66268 |
| DF6 | 2015 Dollars - Constant prices and PPPs | 66268 |
| MIO_NAC | National Currency | 66268 |
BERD_MA_SOF %>%
filter(obsTime == 2017,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}BERD_MA_SOF %>%
filter(obsTime == 2018,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = 100*`MANUFACTURING (C)` / `TOTAL BERD`,
`INFORMATION AND COMMUNICATION (J)` = 100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2017,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = 100*`MANUFACTURING (C)` / `TOTAL BERD`,
`INFORMATION AND COMMUNICATION (J)` = 100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2016,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = 100*`MANUFACTURING (C)` / `TOTAL BERD`,
`INFORMATION AND COMMUNICATION (J)` = 100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2015,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = 100*`MANUFACTURING (C)` / `TOTAL BERD`,
`INFORMATION AND COMMUNICATION (J)` = 100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2014,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = 100*`MANUFACTURING (C)` / `TOTAL BERD`,
`INFORMATION AND COMMUNICATION (J)` = 100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2013,
MEASURE == "DF6",
SECTFUND == "_T",
INDU_MAIN_ACT %in% c("C", "J", "_T")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(COUNTRY, Country, Indu_main_act, obsValue) %>%
spread(Indu_main_act, obsValue) %>%
mutate(`MANUFACTURING (C)` = round(100*`MANUFACTURING (C)` / `TOTAL BERD`, 1),
`INFORMATION AND COMMUNICATION (J)` = round(100*`INFORMATION AND COMMUNICATION (J)` / `TOTAL BERD`, 1)) %>%
arrange(-`MANUFACTURING (C)`) %>%
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 .}BERD_MA_SOF %>%
filter(obsTime == 2017,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}BERD_MA_SOF %>%
filter(obsTime == 2017,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("AUS", "AUT", "GBR", "USA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}BERD_MA_SOF %>%
filter(obsTime == 2011,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}BERD_MA_SOF %>%
filter(obsTime == 2015,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}BERD_MA_SOF %>%
filter(obsTime == 2013,
MEASURE == "DF6",
SECTFUND == "_T",
COUNTRY %in% c("DEU", "FRA", "GBR", "ITA")) %>%
left_join(BERD_MA_SOF_var$INDU_MAIN_ACT, by = "INDU_MAIN_ACT") %>%
left_join(BERD_MA_SOF_var$COUNTRY, by = "COUNTRY") %>%
select(Country, INDU_MAIN_ACT, Indu_main_act, obsValue) %>%
spread(Country, obsValue) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}