Last observation: 2026-W31 (N = 105)
First observation: 2000-W01 (N = 1945)
Last data update: 15 aoû 2026, 23:16. Last compile: 18 aoû 2026, 00:09
Deaths by week, sex and NUTS 3 region - demo_r_mwk3_ts
Data - Eurostat
Info
Structure
France, Germany, Italy, Spain
Weekly Deaths
Code
demo_r_mwk3_ts |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
sex == "T") |>
mutate(year = as.integer(substr(time, 1, 4)),
week = as.integer(substr(time, 7, 8)),
jan4 = as.Date(paste0(year, "-01-04")),
date = jan4 - (as.integer(format(jan4, "%u")) - 1) + (week - 1)*7) |>
select(-year, -week, -jan4) |>
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(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Deaths per week") +
scale_y_continuous(labels = scales::comma_format())
Weekly Deaths, 2019-
Code
demo_r_mwk3_ts |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
sex == "T") |>
mutate(year = as.integer(substr(time, 1, 4)),
week = as.integer(substr(time, 7, 8)),
jan4 = as.Date(paste0(year, "-01-04")),
date = jan4 - (as.integer(format(jan4, "%u")) - 1) + (week - 1)*7) |>
select(-year, -week, -jan4) |>
filter(date >= as.Date("2019-01-01")) |>
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(2000, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Deaths per week") +
scale_y_continuous(labels = scales::comma_format())
Latest Week by Country
Code
latest_w <- demo_r_mwk3_ts |>
filter(nchar(geo) == 2, sex == "T", !is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
demo_r_mwk3_ts |>
filter(nchar(geo) == 2,
sex == "T",
time == latest_w) |>
select(Geo, values) |>
arrange(-values) |>
print_table_conditional()| Geo | values |
|---|---|
| Switzerland | 1069 |