GDP and main components (output, expenditure and income)

Data - Eurostat

Author

Info

source	dataset	.html	.RData
eurostat	rd_e_gerdtot	2024-06-20	2024-06-08

Data on industry

source	dataset	.html	.RData
ec	INDUSTRY	2024-06-19	2023-10-01
eurostat	ei_isin_m	2024-06-23	2024-06-08
eurostat	htec_trd_group4	2024-06-23	2024-06-08
eurostat	nama_10_a64	2024-06-24	2024-06-18
eurostat	nama_10_a64_e	2024-06-23	2024-06-18
eurostat	namq_10_a10_e	2024-06-24	2024-06-08
eurostat	road_eqr_carmot	2024-06-20	2024-06-08
eurostat	sts_inpp_m	2024-06-20	2024-06-18
eurostat	sts_inppd_m	2024-06-20	2024-06-08
eurostat	sts_inpr_m	2024-06-20	2024-06-08
eurostat	sts_intvnd_m	2024-06-20	2024-06-08
fred	industry	2024-06-20	2024-06-07
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-06-20	2023-10-04
oecd	SNA_TABLE4	2024-06-20	2024-04-30
wdi	NV.IND.EMPL.KD	2024-01-06	2024-04-14
wdi	NV.IND.MANF.CD	2024-06-20	2024-06-09
wdi	NV.IND.MANF.ZS	2024-01-06	2024-04-14
wdi	NV.IND.TOTL.KD	2024-01-06	2024-04-14
wdi	NV.IND.TOTL.ZS	2024-01-06	2024-04-14
wdi	SL.IND.EMPL.ZS	2024-01-06	2024-04-14
wdi	TX.VAL.MRCH.CD.WT	2024-01-06	2024-04-14

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	1168
2021	1242
2020	1244

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")