Target Balances - TGB

Data - ECB

Author

François Geerolf

Last observation: juil. 2026 (N = 46)

First observation: janv. 2001 (N = 12)

Last data update: 04 sept. 2026, 02:04

Last compile: 04 sept. 2026, 02:49

Structure

Target Balances

Table

Code 
TGB |>
  filter(TIME_PER_COLLECT == "A",
         TIME_PERIOD %in% c("2019-02", "2020-06", "2020-10", max(TIME_PERIOD))) |>
  mutate(Ref_area = ifelse(REF_AREA == "4F", "Europe", Ref_area),
         OBS_VALUE = round(OBS_VALUE)) |>
  select(REF_AREA, Ref_area, TIME_PERIOD, OBS_VALUE) |>
  spread(TIME_PERIOD, OBS_VALUE) |>
  mutate(Change = `2020-10`-`2019-02`) |>
  mutate(Loc = gsub(" ", "-", str_to_lower(Ref_area)),
         Loc = paste0('<img src="../../icon/flag/vsmall/', Loc, '.png" alt="Flag">')) |>
  select(Loc, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France, Germany, Italy, Greece

Tous

Code 
TGB |>
  filter(REF_AREA %in% c("FR", "DE", "IT", "GR"),
         TIME_PER_COLLECT == "A") |>
  month_to_date() |>
  filter(!is.na(OBS_VALUE)) |>
  mutate(OBS_VALUE = OBS_VALUE/1000) |>
  add_flag_color("Ref_area") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = color)) + 
  add_flags(4) + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(-3000, 3000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = " Bn€")) +
  ylab("Target Balances") + xlab("")

2010

Code 
TGB |>
  filter(REF_AREA %in% c("FR", "DE", "IT", "GR"),
         TIME_PER_COLLECT == "A") |>
  month_to_date() |>
  filter(date >= as.Date("2010-01-01")) |>
  filter(!is.na(OBS_VALUE)) |>
  mutate(OBS_VALUE = OBS_VALUE/1000) |>
  add_flag_color("Ref_area") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = color)) + 
  add_flags(4) + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(-3000, 3000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = " Bn€")) +
  ylab("Target Balances") + xlab("")

France, Germany, Italy, Greece, Spain,

Code 
TGB |>
  filter(REF_AREA %in% c("FR", "DE", "IT", "GR", "ES"),
         TIME_PER_COLLECT == "A") |>
  month_to_date() |>
  filter(!is.na(OBS_VALUE)) |>
  mutate(OBS_VALUE = OBS_VALUE/1000) |>
  add_flag_color("Ref_area") |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = color)) + 
  add_flags(5) + scale_color_identity() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(-3000, 3000, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = " Bn€")) +
  ylab("Target Balances") + xlab("")