install.packages("tidyverse")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.3'
## (as 'lib' is unspecified)
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.2     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

Zgony rejestrowane przez USC, ujęcie tygodniowe 2015-2023 (06.2023)

Zbiór publiczny - rejestr zgonów, na podstawie danych z Urzędów Stanu Cywilnego, w okresie 2015 - 06.2023

zgony <- read.csv("/cloud/project/Liczba_zgonów_w_Rejestrze_Stanu_Cywilnego_w_latach_2015-2023_-_dane_tygodniowe_ogółem.csv", stringsAsFactors=TRUE)

zgony_ren<-zgony %>% rename(Tydzien=Nr.tygodnia)

Pivot longer

zgony_piv <- zgony_ren %>% pivot_longer(cols=!Tydzien, names_to = "Rok", values_to="count", values_drop_na = TRUE)
print(zgony_piv, n=20)
## # A tibble: 407 × 3
##    Tydzien Rok   count
##      <int> <chr> <int>
##  1       1 X2016  8246
##  2       1 X2017  9321
##  3       1 X2018  8406
##  4       1 X2019  8706
##  5       1 X2020  8473
##  6       1 X2021 11496
##  7       1 X2022 12036
##  8       1 X2023 10442
##  9       2 X2016  7942
## 10       2 X2017 10270
## 11       2 X2018  8107
## 12       2 X2019  8613
## 13       2 X2020  8275
## 14       2 X2021 10996
## 15       2 X2022 10808
## 16       2 X2023  9560
## 17       3 X2016  7702
## 18       3 X2017  9902
## 19       3 X2018  8663
## 20       3 X2019  8740
## # ℹ 387 more rows
zgony_piv_sum_tyg <- zgony_piv %>% group_by(Tydzien) %>% summarize(sum(count))
zgony_piv_sum_31 <- zgony_piv %>% filter(Tydzien >=31, Rok=='X2020') %>% group_by(Tydzien)

Plots

Zgony w 2020 roku; tygodnie 31-53

## Zestawienie zgodów w latach 2015-06.2023