Deaths by week, sex and NUTS 3 region - demo_r_mwk3_t
Data - Eurostat
Info
Last observation: NA: 2026-W28 (N = 147)
First observation: NA: 2000-W01 (N = 659)
Last data update: 31 jul 2026, 09:13. Last compile: 01 aoû 2026, 22:18
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 |
|---|---|
| Nord | 364 |
| Bouches-du-Rhône | 330 |
| Paris | 305 |
| Gironde | 290 |
| Loire-Atlantique | 259 |
| Hérault | 256 |
| Rhône | 255 |
| Pas-de-Calais | 227 |
| Alpes-Maritimes | 219 |
| Haute-Garonne | 208 |
| Seine-Maritime | 206 |
| Var | 205 |
| Finistère | 199 |
| Moselle | 195 |
| Isère | 187 |
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 .}