Final consumption expenditure of general government - tec00010

Data - Eurostat

Info

Last observation: Annual: 2025 (N = 82)

First observation: Annual: 2014 (N = 86)

Last data update: 11 aoû 2026, 22:04. Last compile: 12 aoû 2026, 03:51

Structure

freq

na_item

unit

geo

France, Germany, Italy, Spain: Levels

tec00010 |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         unit == "CP_MEUR") |>
  year_to_enddate() |>
  mutate(values = values/1000) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  theme_minimal() + scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(2014, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Final consumption expenditure of general gvnt (Bn€)")

Latest Year: Ranking by % of GDP

latest_y <- tec00010 |>
  filter(unit == "PC_GDP", !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

tec00010 |>
  filter(unit == "PC_GDP",
         time == latest_y,
         !(geo %in% c("EA19", "EA20", "EA21", "EU27_2020"))) |>
  select(Geo, values) |>
  arrange(-values) |>
  slice(1:15) |>
  print_table_conditional()

Geo	values
Iceland	26.1
Sweden	26.1
Netherlands	26.0
Finland	25.8
Croatia	24.3
France	24.1
Belgium	24.0
Denmark	23.0
Latvia	22.9
Norway	22.8
Germany	22.5
Austria	21.8
Estonia	21.5
Slovakia	21.4
Poland	21.3

France, Germany, Portugal

tec00010 |>
  filter(geo %in% c("FR", "DE", "PT"),
         unit == "PC_GDP") |>
  year_to_enddate() |>
  
  mutate(values = values/100) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line() + theme_minimal()  +
  aes(x = date, y = values, color = color) +
  scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 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

tec00010 |>
  filter(geo %in% c("IT", "ES", "EL"),
         unit == "PC_GDP") |>
  year_to_enddate() |>
  
  mutate(values = values/100) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line() + theme_minimal()  +
  aes(x = date, y = values, color = color) +
  scale_color_identity() + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 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))