Last observation: 2026Q1 (N = 98713)
First observation: 1998Q4 (N = 9159)
Last data update: 14 aoû 2026, 20:38. Last compile: 18 aoû 2026, 03:06
Data - Eurostat
Last observation: 2026Q1 (N = 98713)
First observation: 1998Q4 (N = 9159)
Last data update: 14 aoû 2026, 20:38. Last compile: 18 aoû 2026, 03:06
nasq_10_f_tr |>
filter(geo %in% c("FR", "DE", "IT"),
na_item == "B9F",
finpos == "LIAB",
sector == "S14_S15",
unit == "PC_GDP") |>
quarter_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(1995, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Households: net financial transactions (% of GDP)") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")
nasq_10_f_tr |>
filter(geo == "FR",
na_item == "B9F",
finpos == "LIAB",
sector %in% c("S11", "S13", "S14_S15"),
unit == "PC_GDP") |>
quarter_to_date() |>
mutate(values = values/100) |>
ggplot() + geom_line(aes(x = date, y = values, color = Sector)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = "right") +
xlab("") + ylab("Net financial transactions (% of GDP)") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")