Last observation: 2025 (N = 11092)
First observation: 1995 (N = 46283)
Last data update: 14 août 2026, 23:08. Last compile: 01 sept. 2026, 23:52
Data - Eurostat
Last observation: 2025 (N = 11092)
First observation: 1995 (N = 46283)
Last data update: 14 août 2026, 23:08. Last compile: 01 sept. 2026, 23:52
gov_10a_taxag |>
filter(sector == "S13",
unit == "PC_GDP",
na_item == "D2_D5_D91",
geo %in% c("FR", "DE", "IT", "ES")) |>
year_to_date() |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(values = values/100) |>
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(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Total tax receipts (% of GDP)") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))
gov_10a_taxag |>
filter(sector == "S13",
unit == "PC_GDP",
na_item %in% c("D2", "D5", "D61"),
geo == "FR") |>
year_to_date() |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = Na_item)) +
theme_minimal() +
theme(legend.position = c(0.3, 0.82),
legend.title = element_blank()) +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Share of GDP") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))
gov_10a_taxag |>
filter(sector == "S13",
time == "2020",
unit == "PC_GDP",
geo %in% c("FR", "DE", "IT")) %>%
select_if(~ n_distinct(.) > 1) |>
select(-geo) |>
spread(Geo, values) |>
print_table_conditional()