Last observation: 2026-W31 (N = 35)
First observation: 2000-W01 (N = 659)
Last data update: 15 aoû 2026, 23:11. Last compile: 18 aoû 2026, 00:09
Data - Eurostat
Last observation: 2026-W31 (N = 35)
First observation: 2000-W01 (N = 659)
Last data update: 15 aoû 2026, 23:11. Last compile: 18 aoû 2026, 00:09
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)")
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_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 |
|---|---|
| Bern / Berne | 166 |
| CH040 Zürich | 151 |
| Vaud | 88 |
| Aargau | 78 |
| CH070 Ticino | 63 |
| Valais / Wallis | 58 |
| Genève | 53 |
| St. Gallen | 52 |
| Solothurn | 46 |
| Fribourg / Freiburg | 42 |
| Luzern | 41 |
| Thurgau | 33 |
| Graubünden / Grigioni / Grischun | 32 |
| Neuchâtel | 30 |
| Basel-Stadt | 29 |
demo_r_mwk3_t |>
filter(time == "2020W37") |>
select(geo, Geo, values) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}demo_r_mwk3_t |>
filter(time == "2020W36") |>
select(geo, Geo, values) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}