Deaths by week, sex and NUTS 3 region - demo_r_mwk3_ts

Data - Eurostat

Info

Last observation: NA: 2026-W28 (N = 441)

First observation: NA: 2000-W01 (N = 1,945)

Last data update: 23 jul 2026, 23:04. Last compile: 24 jul 2026, 01:11

Structure

freq

sex

unit

geo

France, Germany, Italy, Spain

Weekly Deaths

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_4flags +
  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-

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_4flags +
  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

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
France	11060
LI Liechtenstein	2