Revenue Statistics - OECD countries; Comparative tables - REV

Name: Revenue Statistics - OECD countries; Comparative tables
Creator: François Geerolf
License: https://creativecommons.org/licenses/by/4.0/

Data - OECD

Author

François Geerolf

Structure

obsTime

Code

REV |>
  group_by(obsTime) |>
  summarise(Nobs = n()) |>
  arrange(desc(obsTime)) |>
  print_table_conditional()

4100 - Recurrent Taxes on Immovable Property

Table

Code

REV |>
  filter(obsTime %in% c("2019", "1999", "1989"),
         VAR == "TAXGDP",
         TAX == "4100",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  select(COU, Cou, obsTime, obsValue) |>
  spread(obsTime, obsValue) |>
  arrange(-`2019`) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         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 .}

France, Germany, Italy, Spain, United Kingdom

Long Table

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         obsTime == "2018",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$TAX, by = "TAX") |>
  left_join(REV_var$COU, by = "COU") |>
  mutate(obsValue = round(obsValue, 2)) |>
  select(TAX, Tax, Cou, obsValue) |>
  mutate(Cou = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Cou = paste0('<img src="../../icon/flag/vsmall/', Cou, '.png" alt="Flag">')) |>
  spread(Cou, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Short Table

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         obsTime == "2018",
         TAX %in% c("TOTALTAX", "1000", "1100", "1200", "2000", "2100", 
                    "2200", "3000", "4000", "5000", "5110", "5120"),
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$TAX, by = "TAX") |>
  left_join(REV_var$COU, by = "COU") |>
  mutate(obsValue = round(obsValue, 2)) |>
  select(TAX, Tax, Cou, obsValue) |>
  mutate(Cou = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Cou = paste0('<img src="../../icon/flag/vsmall/', Cou, '.png" alt="Flag">')) |>
  spread(Cou, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F, options = list(pageLength = 20)) else .}

Total tax revenue - TOTALTAX

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "TOTALTAX",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("2019-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Total tax revenue (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 5),
                     labels = scales::percent_format(accuracy = 1))

Taxes on income, profits and capital gains - 1000

All

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "1000",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("2019-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Taxes on income, profits and capital gains (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Of households - 1100

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "1100",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("1965-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Taxes on income, profits and capital gains (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Corporate - 1200

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "1200",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("1985-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Taxes on income, profits and capital gains (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Social security contributions - 2000

All

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "2000",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("2015-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Social security contributions (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Of households - 2100

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "2100",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("1985-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Social security contributions (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Corporate - 2200

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "2200",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("2012-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Social security contributions (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Taxes on property - 4000

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR"),
         TAX == "4000",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("1985-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Taxes on property (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Taxes on goods and services - 5000

All

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR", "GRC"),
         TAX == "5000",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  rename(Location = Cou) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  ylab("Taxes on goods and services (% of GDP)") + xlab("") + 
  theme_minimal() + scale_color_identity() + add_6flags +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

General taxes - 5110

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR", "GRC"),
         TAX == "5110",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  rename(Location = Cou) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  ylab("General taxes (% of GDP)") + xlab("") + 
  theme_minimal() + scale_color_identity() + add_6flags +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Value added taxes - 5111

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR", "GRC"),
         TAX == "5111",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  filter(date >= as.Date("1990-01-01")) |>
  add_flag_color("Cou") |>
  rename(Location = Cou) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  ylab("Value added taxes (% of GDP)") + xlab("") + 
  theme_minimal() + scale_color_identity() + add_6flags +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Taxes on specific goods and services - 5120

Code

REV |>
  filter(COU %in% c("DEU", "FRA", "ITA", "ESP", "GBR", "GRC"),
         TAX == "5120",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("1977-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Taxes on specific goods and services (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 1),
                     labels = scales::percent_format(accuracy = 1))

Japan, Canada, United States

Long Table

Code

REV |>
  filter(COU %in% c("JPN", "CAN", "USA", "IRL", "PRT"),
         obsTime == "2018",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$TAX, by = "TAX") |>
  left_join(REV_var$COU, by = "COU") |>
  mutate(obsValue = round(obsValue, 2)) |>
  select(TAX, Tax, Cou, obsValue) |>
  mutate(Cou = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Cou = paste0('<img src="../../icon/flag/vsmall/', Cou, '.png" alt="Flag">')) |>
  spread(Cou, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Short Table

Code

REV |>
  filter(COU %in% c("JPN", "CAN", "USA", "IRL", "PRT"),
         obsTime == "2018",
         TAX %in% c("TOTALTAX", "1000", "1100", "1200", "2000", "2100", 
                    "2200", "3000", "4000", "5000", "6000"),
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$TAX, by = "TAX") |>
  left_join(REV_var$COU, by = "COU") |>
  mutate(obsValue = round(obsValue, 2)) |>
  select(TAX, Tax, Cou, obsValue) |>
  mutate(Cou = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Cou = paste0('<img src="../../icon/flag/vsmall/', Cou, '.png" alt="Flag">')) |>
  spread(Cou, obsValue) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F, options = list(pageLength = 20)) else .}

Total tax revenue - TOTALTAX

Code

REV |>
  filter(COU %in% c("JPN", "CAN", "USA", "IRL", "PRT"),
         TAX == "TOTALTAX",
         VAR == "TAXGDP",
         GOV == "NES") |>
  left_join(REV_var$COU, by = "COU") |>
  year_to_date() |>
  mutate(obsValue = obsValue / 100) |>
  add_flag_color("Cou") |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  geom_image(data = . %>%
               filter(date == as.Date("2018-01-01")) %>%
               mutate(image = paste0("../../icon/flag/", str_to_lower(gsub(" ", "-", Cou)), ".png")),
             aes(x = date, y = obsValue, image = image), asp = 1.5) +
  ylab("Total tax revenue (% of GDP)") + xlab("") + theme_minimal() + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 60, 5),
                     labels = scales::percent_format(accuracy = 1))

Germany

(ref:DEU-5111-95-04) Value Added Taxes in Germany (1995-2004)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "5111",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01"),
         date <= as.Date("2004-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Value Added Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 10),
                     labels = dollar_format(suffix = " Bn", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("1999-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("1999-01-01"), linetype = "dashed", color = viridis(3)[2])

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "5120",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01"),
         date <= as.Date("2004-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Fuel Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 5),
                     labels = dollar_format(suffix = " Bn", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("2003-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2003-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2001-01-01"), linetype = "dashed", color = viridis(3)[1])

(ref:DEU-TOTALTAX-95-04) Total Taxes in Germany (1995-2004)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "TOTALTAX",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01"),
         date <= as.Date("2004-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("All Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 10),
                     labels = dollar_format(suffix = " Bn", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("2003-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2003-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2001-01-01"), linetype = "dashed", color = viridis(3)[1])

Value Added Taxes (in Billions)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "5111",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01"),
         date <= as.Date("2010-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Value Added Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 10),
                     labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("1999-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("1999-01-01"), linetype = "dashed", color = viridis(3)[2])

Fuel Taxes (in Billions)

(ref:DEU-5120-95-04) Fuel Taxes in Germany (1995-2004)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "5120",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Fuel Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 5),
                     labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("2003-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2003-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("2001-01-01"), linetype = "dashed", color = viridis(3)[1])

Total Taxes in Germany (% of GDP)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "TOTALTAX",
         VAR == "TAXGDP") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  ggplot() + xlab("") + ylab("Total Taxes (% of GDP)") +
  geom_line(aes(x = date, y = obsValue/100)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(0, 0.50, 0.005),
                     labels = scales::percent_format(accuracy = 0.1))

Total Taxes in Germany

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "TOTALTAX",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Total Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 2000, 100),
                     labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("1999-01-01")),
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("1999-01-01"), linetype = "dashed", color = viridis(3)[2])

Total Taxes (1995-2004)

(ref:DEU-TOTALTAX-95-04) Total Taxes in Germany (1995-2004)

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX == "TOTALTAX",
         VAR == "TAXNAT") |>
  year_to_date() |>
  filter(date >= as.Date("1995-01-01"),
         date <= as.Date("2010-01-01")) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue)) + theme_minimal() +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.25)) +
  scale_x_date(breaks = as.Date(paste0(seq(1920, 2020, 1), "-01-01")),
               labels = date_format("%Y")) + 
  scale_y_continuous(breaks = seq(-0.10, 0.03, 0.01),
                     labels = scales::percent_format(accuracy = 1)) +
  xlab("") + ylab("Total Taxes in Germany") +
  scale_y_continuous(breaks = seq(0, 1000, 10),
                     labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1)) +
  geom_rect(data = data_frame(start = as.Date("1998-01-01"), 
                              end = as.Date("1999-01-01")), 
            aes(xmin = start, xmax = end, ymin = -Inf, ymax = +Inf), 
            fill = viridis(3)[2], alpha = 0.2) + 
  geom_vline(xintercept = as.Date("1998-01-01"), linetype = "dashed", color = viridis(3)[2]) + 
  geom_vline(xintercept = as.Date("1999-01-01"), linetype = "dashed", color = viridis(3)[2])

5100: VAT Taxes

Germany

Code

REV |>
  filter(COU == "DEU",
         GOV == "NES",
         TAX %in% c("5100", "5110", "5120"),
         VAR == "TAXGDP") |>
  select(TAX, obsValue, obsTime) |>
  year_to_enddate() |>
  left_join(REV_var$TAX, by = "TAX") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = obsValue/100, color = Tax, linetype = Tax)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = 0.01*seq(00, 150, 1),
                     labels = scales::percent_format(accuracy = 1),
                     limits = 0.01*c(2.5, 13))

France

Code

REV |>
  filter(COU == "FRA",
         GOV == "NES",
         TAX %in% c("5100", "5110", "5120"),
         VAR == "TAXGDP") |>
  select(TAX, obsValue, obsTime) |>
  year_to_enddate() |>
  left_join(REV_var$TAX, by = "TAX") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = obsValue/100, color = Tax, linetype = Tax)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = 0.01*seq(00, 150, 1),
                     labels = scales::percent_format(accuracy = 1),
                     limits = 0.01*c(2.5, 16))

Japan

Code

REV |>
  filter(COU == "JPN",
         GOV == "NES",
         TAX %in% c("5100", "5110", "5120"),
         VAR == "TAXGDP") |>
  select(TAX, obsValue, obsTime) |>
  year_to_enddate() |>
  left_join(REV_var$TAX, by = "TAX") |>
  ggplot() + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = obsValue/100, color = Tax, linetype = Tax)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        legend.direction = "vertical") +
  scale_y_continuous(breaks = 0.01*seq(00, 150, 1),
                     labels = scales::percent_format(accuracy = 1),
                     limits = 0.01*c(0, 8))

Related Data

Germany by the Numbers

source	dataset	Title	Updated
eurostat	bop_c6_q	Balance of payments by country - quarterly data (BPM6) - bop_c6_q	2026-04-13
eurostat	ilc_di01	Distribution of income by quantiles - EU-SILC and ECHP surveys - ilc_di01	2026-09-09
eurostat	ilc_li02	At-risk-of-poverty rate by poverty threshold, age and sex - EU-SILC and ECHP surveys - ilc_li02	2026-09-12
eurostat	sts_intvnd_m	Turnover in industry, non domestic market - monthly data - sts_intvnd_m	2026-09-12
oecd	7HA_A_Q	Households’ financial and non-financial assets and liabilities - 7HA_A_Q	2026-08-02
oecd	ANHRS	Average annual hours actually worked per worker - ANHRS	2026-08-02
oecd	AV_AN_WAGE	Average annual wages - AV_AN_WAGE	2026-09-11
oecd	CTS_CIT	Statutory Corporate Income Tax Rates - CTS_CIT	2026-08-02
oecd	DP_LIVE	OECD Data Live dataset - DP_LIVE	2026-08-02
oecd	EO	Economic Outlook	2026-09-14
oecd	GENDER_EMP	Employment by Sex and by Age - GENDER_EMP	2026-08-02
oecd	IDD	Income Distribution Database - IDD	2026-09-14
oecd	LFS_SEXAGE_I_R	LFS by sex and age - indicators - LFS_SEXAGE_I_R	2026-08-02
oecd	MEI_BOP6	Balance of Payments BPM6 - MEI_BOP6	2026-08-02
oecd	METR	Effective tax rate on increasing working hours - METR	2026-08-02
oecd	NAAG	National Accounts at a Glance - NAAG	2026-08-02
oecd	NRR	Net Replacement Rates in unemployment - NRR	2026-08-02
oecd	PAG	Pensions at A Glance - PAG	2026-08-02
oecd	QASA_TABLE720R	Non-consolidated financial balance sheets by economic sector (Quarterly table 0720) - SNA 2008 - QASA_TABLE720R	2026-08-02
oecd	QNA	Quarterly National Accounts - QNA	2026-09-14
oecd	QNA_EXPENDITURE_NATIO_CURR	Quarterly GDP and components - expenditure approach - QNA_EXPENDITURE_NATIO_CURR	2026-09-14
oecd	REV	Revenue Statistics - OECD countries; Comparative tables - REV	2026-08-02
oecd	SNA_TABLE14A	Non-financial accounts by sectors - SNA_TABLE14A	2026-08-02
oecd	SNA_TABLE8A	Capital formation by activity ISIC rev4 - SNA_TABLE8A	2026-08-02
oecd	SOCX_AGG	Social Expenditure - Aggregated data - SOCX_AGG	2026-08-02
oecd	TABLE_I1	Central government personal income tax rates and thresholds - TABLE_I1	2026-08-02
oecd	TABLE_I7	Top statutory personal income tax rate and top marginal tax rates for employees - TABLE_I7	2026-08-02
oecd	TABLE_II4	Overall statutory tax rates on dividend income - TABLE_II4	2026-08-02
oecd	TABLE_III1	Employee social security contribution rates - TABLE_III1	2026-08-02
oecd	ULC_ANN	Unit Labour Costs - Annual Indicators - ULC_ANN	2026-08-02
wdi	NY.GDP.PCAP.PP.KD	GDP per capita, PPP (constant 2011 international D) - NY.GDP.PCAP.PP.KD	2026-09-14