GDP and main components (output, expenditure and income)

Data - Eurostat

Info

source dataset .html .RData
eurostat rd_e_gerdtot 2024-11-01 2024-10-08

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")
table1 <- rd_e_gerdtot %>%
  filter(time == "2021",
         unit == "PC_GDP",
         !(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")