Final consumption expenditure of general government - tec00010

Data - Eurostat

Author

François Geerolf

geo

Code 
tec00010 %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

unit

Code 
tec00010 %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
CP_MEUR Current prices, million euro 469
PC_GDP Percentage of gross domestic product (GDP) 469

geo

Code 
tec00010 %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
geo Geo Nobs
DE Germany 24
NL Netherlands 24
AL Albania 22
AT Austria 22
BA Bosnia and Herzegovina 22
BE Belgium 22
BG Bulgaria 22
CH Switzerland 22
CY Cyprus 22
CZ Czechia 22
DK Denmark 22
EA19 Euro area - 19 countries (2015-2022) 22
EA20 Euro area – 20 countries (from 2023) 22
EA21 NA 22
EE Estonia 22
EL Greece 22
ES Spain 22
EU27_2020 European Union - 27 countries (from 2020) 22
FI Finland 22
FR France 22
HR Croatia 22
HU Hungary 22
IE Ireland 22
IS Iceland 22
IT Italy 22
LT Lithuania 22
LU Luxembourg 22
LV Latvia 22
ME Montenegro 22
MK North Macedonia 22
MT Malta 22
NO Norway 22
PL Poland 22
PT Portugal 22
RO Romania 22
RS Serbia 22
SE Sweden 22
SI Slovenia 22
SK Slovakia 22
TR Türkiye 22
XK Kosovo* 22
UA Ukraine 20
UK United Kingdom 12

na_item

Code 
tec00010 %>%
  left_join(na_item, by = "na_item") %>%
  group_by(na_item, Na_item) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
na_item Na_item Nobs
P3_S13 Final consumption expenditure of general government 938

time

Code 
tec00010 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
time Nobs
2014 86
2015 86
2016 86
2017 86
2018 86
2019 86
2020 84
2021 84
2022 84
2023 84
2024 82
2025 4

France, Germany, Portugal

Code 
tec00010 %>%
  filter(geo %in% c("FR", "DE", "PT"),
         unit == "PC_GDP") %>%
  year_to_enddate %>%
  left_join(geo, by = "geo") %>%
  ggplot + geom_line() + theme_minimal()  +
  aes(x = date, y = values/100, color = Geo, linetype = Geo) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 1), "-01-01")),
               labels = date_format("%y")) +
  theme(legend.position = c(0.7, 0.55),
        legend.title = element_blank()) +
  xlab("") + ylab("Final consumption expenditure of general gvnt") +
  scale_y_continuous(breaks = 0.01*seq(0, 200, 1),
                     labels = scales::percent_format(accuracy = 1))

Greece, Italy, Spain

Code 
tec00010 %>%
  filter(geo %in% c("IT", "ES", "GR"),
         unit == "PC_GDP") %>%
  year_to_enddate %>%
  left_join(geo, by = "geo") %>%
  ggplot + geom_line() + theme_minimal()  +
  aes(x = date, y = values/100, color = Geo, linetype = Geo) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 1), "-01-01")),
               labels = date_format("%y")) +
  theme(legend.position = c(0.7, 0.55),
        legend.title = element_blank()) +
  xlab("") + ylab("Final consumption expenditure of general gvnt") +
  scale_y_continuous(breaks = 0.01*seq(0, 200, 0.2),
                     labels = scales::percent_format(accuracy = 0.1))