source | dataset | .html | .RData |
---|---|---|---|
eurostat | rd_e_gerdtot | 2024-11-01 | 2024-10-08 |
GDP and main components (output, expenditure and income)
Data - Eurostat
Info
Data on industry
source | dataset | .html | .RData |
---|---|---|---|
ec | INDUSTRY | 2024-09-15 | 2023-10-01 |
eurostat | ei_isin_m | 2024-11-05 | 2024-10-09 |
eurostat | htec_trd_group4 | 2024-11-05 | 2024-10-08 |
eurostat | nama_10_a64 | 2024-11-05 | 2024-10-08 |
eurostat | nama_10_a64_e | 2024-11-05 | 2024-10-08 |
eurostat | namq_10_a10_e | 2024-11-05 | 2024-10-08 |
eurostat | road_eqr_carmot | 2024-11-01 | 2024-10-08 |
eurostat | sts_inpp_m | 2024-06-24 | 2024-10-08 |
eurostat | sts_inppd_m | 2024-10-09 | 2024-10-08 |
eurostat | sts_inpr_m | 2024-10-09 | 2024-10-08 |
eurostat | sts_intvnd_m | 2024-10-31 | 2024-10-31 |
fred | industry | 2024-11-01 | 2024-11-01 |
oecd | ALFS_EMP | 2024-04-16 | 2024-05-12 |
oecd | BERD_MA_SOF | 2024-04-16 | 2023-09-09 |
oecd | GBARD_NABS2007 | 2024-04-16 | 2023-11-22 |
oecd | MEI_REAL | 2024-05-12 | 2024-05-03 |
oecd | MSTI_PUB | 2024-09-15 | 2023-10-04 |
oecd | SNA_TABLE4 | 2024-09-15 | 2024-04-30 |
wdi | NV.IND.EMPL.KD | 2024-01-06 | 2024-09-18 |
wdi | NV.IND.MANF.CD | 2024-09-18 | 2024-09-18 |
wdi | NV.IND.MANF.ZS | 2024-01-06 | 2024-09-18 |
wdi | NV.IND.TOTL.KD | 2024-01-06 | 2024-09-18 |
wdi | NV.IND.TOTL.ZS | 2024-01-06 | 2024-09-18 |
wdi | SL.IND.EMPL.ZS | 2024-01-06 | 2024-09-18 |
wdi | TX.VAL.MRCH.CD.WT | 2024-01-06 | 2024-09-18 |
Last
- EU investment in R&D increased to €331 billion in 2021. Flash
Code
%>%
rd_e_gerdtot group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(3) %>%
print_table_conditional()
time | Nobs |
---|---|
2022 | 1261 |
2021 | 1268 |
2020 | 1254 |
sectperf
Code
%>%
rd_e_gerdtot left_join(sectperf, by = "sectperf") %>%
group_by(sectperf, Sectperf) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
geo
Code
%>%
rd_e_gerdtot left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
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 .} {
unit
Code
%>%
rd_e_gerdtot left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
time
Code
%>%
rd_e_gerdtot group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Table
R&D
Code
dir.create("rd_e_gerdtot_files/figure-html")
<- rd_e_gerdtot %>%
table1 filter(time == "2021",
== "PC_GDP",
unit !(geo %in% c("EA20", "EA19", "EU27_2020"))) %>%
left_join(sectperf, by = "sectperf") %>%
select_if(~ n_distinct(.) > 1) %>%
select(-sectperf) %>%
spread(Sectperf, values) %>%
left_join(geo, by = "geo") %>%
mutate(geo = ifelse(geo == "EL", "GR", geo),
geo = ifelse(geo == "UK", "GB", geo)) %>%
select(geo, Geo, everything()) %>%
gt() %>%
fmt_number(columns = 3:7 , locale = "fr", decimals = 1, pattern = "{x}%") |>
cols_align(align = "center", columns = 3:7) |>
fmt_flag(columns = geo, height = "1.5em") %>%
cols_width(3:7 ~ px(50)) |>
gt_theme_538()
gtsave(table1, file = "rd_e_gerdtot_files/figure-html/table1-1.png")
ig_d("eurostat", "rd_e_gerdtot", "table1")