Deaths by week, sex and NUTS 3 region - demo_r_mwk3_t

Data - Eurostat

Author

François Geerolf

Info

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

First observation: NA: 2000-W01 (N = 659)

Last data update: 23 jul 2026, 22:43. Last compile: 25 jul 2026, 20:40

Structure

Weekly Deaths: France

National Total

Code

demo_r_mwk3_t %>%
  filter(geo == "FR",
         !is.na(values)) %>%
  mutate(year = as.numeric(substr(time, 1, 4)),
         week = as.numeric(substr(time, 7, 8)),
         date = as.Date(paste0(year, "-01-01")) + (week - 1) * 7) %>%
  ggplot + geom_line(aes(x = date, y = values)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(2013, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Weekly deaths (number)")

Paris vs. Nord

Code

demo_r_mwk3_t %>%
  filter(geo %in% c("FR101", "FRE11"),
         !is.na(values)) %>%
  mutate(year = as.numeric(substr(time, 1, 4)),
         week = as.numeric(substr(time, 7, 8)),
         date = as.Date(paste0(year, "-01-01")) + (week - 1) * 7) %>%
  filter(date >= as.Date("2018-01-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  theme_minimal() +
  theme(legend.position = c(0.2, 0.85),
        legend.title = element_blank()) +
  scale_x_date(breaks = as.Date(paste0(seq(2013, 2100, 1), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Weekly deaths, NUTS 3 region (number)")

Latest Week: Largest NUTS 3 Regions

Code

latest_w <- demo_r_mwk3_t %>%
  filter(nchar(geo) == 5, !is.na(values)) %>%
  summarise(m = max(time)) %>%
  pull(m)

demo_r_mwk3_t %>%
  filter(time == latest_w,
         nchar(geo) == 5,
         !is.na(values)) %>%
  select(Geo, values) %>%
  arrange(desc(values)) %>%
  head(15) %>%
  print_table_conditional()

Geo	values
LI000 Liechtenstein	2

Death 2020W37

Code

demo_r_mwk3_t %>%
  filter(time == "2020W37") %>%
  
  select(geo, Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Death 2020W36

Code

demo_r_mwk3_t %>%
  filter(time == "2020W36") %>%
  
  select(geo, Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}