Vývoj počtu nehod

Od roku 1995 docházelo k poměrně prudkému poklesu v počtech dopravních nehod s účastí cyklistů. Z počtu cca 5500 nehod v druhé polovině 90. let se počet nehod snížil na cca 3000 v roce 2010. Od to doby došlo ke zvýšení na cc 4300 nehod ročně.

Druhý graf ukazuje, že nejčastěji se nehody cyklistů dějí v odpoledních hodinách v jarních, letních a podzimních měsících. Zvýšená koncentrace nehod je na podzim mezi pátou a sedmo hodinou a také v letních měsících v dopoledních hodinách (letní prázdniny jsou vyznačeny dvěmi svislými oranžovými čarami).

Ačkoli celkový počt nehod cyklistů v posledních letech stagnuje, počet vážně či smrtelně zraněných cyklistů klesá. Počet zemřelých cyklistů klesl z hodnoty 174 v roce 1995 na 53 v roce 2016 a od té doby se drží okolo 50 zemřelých cyklistů ročně. Počet těžce zraněných dosáhl maxima (718) v roce 1997 a minima 222 v roce 2021. Pokles se dlouhodobý a lineární.

Podíl vážných nehod (těžké nebo smrtelné zranění) výrazně poklesl z cca 15 % v 2. polovině 90. let na necelých 7 % v roce 2021. K výraznějšímu poklesu v podílu vážných nehod došlo po roce 2010 a pokles koresponduje se zvýšením počtu zaznamenaných nehod.

## `summarise()` has grouped output by 'doy'. You can override using the `.groups`
## argument.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

## Warning: Removed 1 row containing missing values (`geom_line()`).
## Warning: Removed 1 rows containing missing values (`geom_point()`).

Zajímavé je podívat se na podíl smrtených nehod, kdy k úmrtí dojde do 24 hodin od nehody. Je patrné, že tento podíl se v čase snižuje. U čím dál většího podílu smrtelných nehod dojde k úmrtí po více než 24 hodinách od nehody.

Pokud se srovná podíl nehod smrtelných do 24 hodin, smrtelných do 30 dní a nehod s těžkým zrněním (vážné nehody), je patrný trend snížování podílů nehod smrtelných do 24 h (z cca 17 na cca 12 %) a zvyšování podílu nehod s těžkým zraněním (z cca 78 na cca 85 %). Zbytek tvoří nehody smrtelné do 30 dní - u nich žádný trend není patrný.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

Podíl nehod s vážnými následky můžeme vynést do mapy a oveřit, zda dochází k prostorovmu shlukování - zda podíl nehod s výžnými následky v sousedících okresech je podobnější než podíl v okresech, které spolu nesousedí. Moranovům test prostorové autokorelace vychází jako statisticky nevýznamný, podíl nehod s vážným zraněním v okresech ČR má náhodnou povahu.

## Joining with `by = join_by(kod_okres)`

Moranovo I

mc = moran.mc(st_vazne_nasledky$value,lw, nsim=999, alternative="greater")
mc
## 
##  Monte-Carlo simulation of Moran I
## 
## data:  st_vazne_nasledky$value 
## weights: lw  
## number of simulations + 1: 1000 
## 
## statistic = 0.0090657, observed rank = 623, p-value = 0.377
## alternative hypothesis: greater

Pohlaví

Zdaleka největší část cyklistů při dopravních nehodách tvoří muži (přes 60 %). V čase se podíl mužů zvyšuje a to zejména na úkor chlapců (do 15 let), kteří v druhé polovině 90. let tvořili téměř stejně početnou skupinu jako ženy, ale jejich podíl výrazně poklesl.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

Opět můžeme podíl pohlaví vynést do mapy a ověřit tendenci k prostorovému shlukování, která je významná. V severozápadních Čechách a v okolí Prahy a Brna pozorujeme vyšší podíl můžu - až 90 %. Nejvyšší podíl žen je ve východních a jižních Čechách, na jižní a střední Moravě.

## Joining with `by = join_by(kod_okres)`

Typy nehod

Databáze PČR rozlišuje 9 typů nehod. Pro účely této analýzy byla provedena redukce do tří kategorií - MVC (srážka s jedoucím motorovým vozidlem), SVC (havárie nebo srážka s pevnu překážkou; nehody se účastní jediné vozidlo) a jiný typ (srážka se stojícím vozidlem, srážka se zvěří, vlakem, tramvají apod.)

Po celé sledované období dochází k nárůstu v počtu havárií. V letech 2000 - 2010 došlo k významnému poklesu počtu nehod kategorie MVC - na polovinu z 4000 na 2000 nehod ročně. Od roku 2010 se počet MVC drží okolo hodnoty 2000 nehod ročně. Počet nehod kategoríe Jiná nehoda se v čase nemění.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

Porovnáme-li poměr MVC a SVC, je patrné, že vyšší podíl MVC je v okolí velkých měst, v Polabí a v severozápadních Čechách. Vyšší podíl SVC je v horských oblastech - Šumava, Severní Čechy, Vysočina, Beskydy. Tendence ke shlukování je statisticky významná.

## Joining with `by = join_by(kod_okres)`

intravilán / extravilán

U MVC je vyšší podíl nehod v intravílánu (cca 85 %) než u SVC (cca 70 %). U obou skupin ale dochází ke zvyšování podílu nehod v intravilánu a u SVC je tento nárůst výrazně rychlejší než u MVC.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

MVC - směrové poměry

V čase dochází u MVC rovněž ke zvyšování podílu nehod cyklistů na kruhových objezdech. To je však nejspíše dáno zvyšujícím se počtem kruhových objezdů.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

pracovní nebo volný den

Podíl nehod v pracovní a volné dny zůstává v čase konstantní. U MVC je to cca 77 % nehod, u SVC je to cca 60 % nehod.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

MVC - typ srážky

Porovnáme-li zastoupení typů srážek, vidíme hned několik pozvolných trendů: - snižování podílu čelních srážek a srážek zezadu - zvyšování podílu bočních srážek (střet bočních částí vozidel jedoucích ve stejném či opačném směru) - neměnný podíl srážek z boku (střet vozidel v na sebe kolmém směru) Trendy jsou statisticky významné, ale velmi mírné.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

U MVC i SVC dochází ke zvyšování podílu nehod, které se stanou ve dne. Aktuálně u obou skupin tvoří nehody ve dne cca 97 % všech nehod.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

SVC - alkohol

Zajímavý průběh má podíl nehod s alkoholem u SVC. V letech 200č-2008 došlo k výraznému skokovému snížení podílu nehod s alkoholem. Od roku 2009 se podíl nehod s alkoholem vrátil k hodnotám, které byly před rokem 2004. Tento skok vypadá na důsledek nějaké systematické změny v pořizování dat.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

Vyšší podíl SVC s alkoholem je jihovýchodní Moravě. Nižší podíl pozorujeme opět ve větších městech.

## Joining with `by = join_by(kod_okres)`

Věk

Čím horší následky nehody, tím vyšší věk. Zatímco u smrtelných nehod je medián věku cyklisty 55 let, u těžkých zranění je to 46 let, u lehkých zranění 40 let a u nehod bez zranění 32 let.

Je zajímavé, že nejnižší podíl cyklistů nad 64 let je ve velkých městech. Podíl cyklistů do 15 let je výrazně vyšší v západnách Čechách.

## Joining with `by = join_by(kod_okres)`

## Joining with `by = join_by(kod_okres)`

Věk a nošení přilby

Pokud data dále rozdělíme podle toho, zda cyklista měl či neměl přilbu, tak zjistíme, že v rámci každé třídy následků (smrt, TZ, LZ, bez zranění) je vyšší věk u cyklistů bez přilby než u cyklistů s přilbou.

Rozdělení četnosti věku můžeme zobrazit jak pro kategorie následků nehody, tak i po jednotlivých letech. Ke konci milénia byl rozdíl ve věku mezi cyklisty s přilbami a bez přileb minimální, postupem času však došlo ke zvětšení rozdílu. Věk cyklistů s přilbou byl nižší než věk cyklistů bez přilby. V poslendích letech se zdá, že se tento rozdíl zmenušuje, což lze vidět na druhém grafu, kde je vynesen jen průměrný věk cyklistů s a bez přeilby v daném roce. Na tomto drafu je také dobře vidět, že v letech 2001, 2006 a 2011 došlo ke skokovému poklesu v průměrném věku cykistů s přilbou. Od roku 2001 začala platit povinnost osit přilbu pro děti do 15 let; od 2006 byla tata povinnost rozšířena pro děti do 18 let a v roce 2011 byla spuštěna kampaň Na kole jen s přilbou. Tato kampaň sice necílí primárně na děti, ale zdá se, že právě u této věkové skupiny mohla dosáhnout efektu (viz níže).

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.

Nošení přilby je vyšší ve velkých městech, nízké je v oblasti Polabí, na střední a jižní Moravě.

## Joining with `by = join_by(kod_okres)`

Dalším způsobem jak sledovat vliv věku na nošení přilby je sledovat podíl nošení přileb u různých věkových skupin.

Následující graf ukazuje podíl nošení přileb podle věku cyklisty. Použity jsou pouze nehody z let 2020-2022, aby nedošlo ke zkreslení vlivem dlouhodobějších trendů. Graf ukazuje podíl nošení přileb nad 80 % u dětí do 3 let. To budou téměř bez výjimky děti, které jsou vezeny jako spolujezdci, nejčastěji svými rodiči. Během prvních let života dochází k prudkému poklesu v nošeí přilby. U dětí ve věku 7 až 17 let se podíl nošní přilby pohybuje okolo 55 % a po dosažení plnoletosti prudce klesá na cca 30-35 %. Ke zvýšení nošení přilby dochází po 40. roku života. Od 55 let podíl nošení přilby opět pomalu klesá a u nejstarších cyklistů ve věku okolo 80 let se pohybuje jen okolo 20 %.

Pro nošení přilby se jeví zásadní jak vliv rodičů - ve věku, kdy se děti pohybují po silnici za doprovodu rodičů je nošení přilby nejvyšší. Druhým podstatným faktorem je přítomnost legislativy - do 17 let je nošení přilby povinné a po dosažení 18. roku života nošení přilby prudce poklesne.

Velmi zajímavý obrázek podává graf, který ukazuje podíl nošení přilby podle věku a data nehody. V letech 1996-2000 byl největší podíl nošení přilby ve věkové kategorii 25-30 let. V následujících letech docházelo k nárůstu podílu nošení přileb zejména ve u dětí do 15 let. Je však patrné, že mezi obdobími 2011-2015 a 2016-2020 u dětí do 10 let prakticky k žádnému zvýšení v podílu nošení přilby nedošlo. Mezi roky 2006 a 2015 nicméně došlo k velkému nárůstu nošení přilby u cyklistů ve věku 30 až 50 let. U cyklistů mezi 20 a 30 lety jsme v druhé polovině 90. let pozorovali vůbec nejvyšší podíl nošení přilby, nyní se jedná o lokální minimum. U prakticky všech ostatních věkových skupin došlo k většímu nárůstu než v této skupině cyklistů.

Druhý graf ukazuje změnu v nošení přilby podle věkových kategorií a data nehody. U věku do 15 let došlo k největšímu podílu v nošení přilby v letech 200ž-2010, U cyklistů ve věku 35 až 55 let došlo k největšmu zvýšení nošení přilby v letech 2011 až 2016 a pro cyklisty nad 55 let došlo k největšímu zvýšení nošení přileb v letech 2016 až 2020.

## `summarise()` has grouped output by 'vek_petiletka'. You can override using the
## `.groups` argument.

## `summarise()` has grouped output by 'vek_petiletka'. You can override using the
## `.groups` argument.

V letech 2001 a 2006 byla zavedena legislativa, která zaváděla povinnost nosit cyklistickou přilbu dětem do 15 let, od roku 2006 do 18 let.

U věkové skupiny do 15 let se tyto změny promítly do skokového nárůstu v podílu cyklistů, kteří nosí přilbu. Zajímav je skokové zvýšení podílu dětí nosících přilbu v roce 2011. V tomto roce byla zahájena kampaň Na kole jen s přilbou (kampaň se každoročně opakuje). Ačkoli tato kampaň nebyla zaměřena primárně na děti, právě u nich došlo ke zvýšení podílu nošení přilby.

Věk, pohlaví a nošení přilby

Podobný graf můžeme vytvořir pro skupiny na základě věku a pohlaví. U dětí do 15 let nepozorujeme výrazný rozdíl v nošení přilby mezi chlapcia dívkami. U dívek je vyšší variabilita, ta je však dána nižším počtem dat v této věkové kategorii. U cyklistů starších 15 let pozorujeme vyšší nošení přilby u mužů. Ve věkové kategorii 15 až 64 je tento rozdíl cca 5 % (počínaje rokem 2001), u seniorů nad 65 let je tento rozdíl až 15 % a to od roku 2007.

## `summarise()` has grouped output by 'rok', 'pohlavi_mf'. You can override using
## the `.groups` argument.

Nošení přileb podle věkových kategorií v průběhu dne vykazuje rozdíly mezi věkovými skupinami

## Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(density)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
## Warning: Removed 22 rows containing non-finite values (`stat_bin()`).
## Warning: Removed 4 rows containing missing values (`geom_bar()`).

## Warning: Removed 366 rows containing non-finite values (`stat_bin()`).
## Removed 4 rows containing missing values (`geom_bar()`).

## Warning: Removed 73 rows containing non-finite values (`stat_bin()`).
## Removed 4 rows containing missing values (`geom_bar()`).

Rozdíly v nošení přileb - pracovní a volné dny

Následující graf ukazuje nošení přileb podle věkových kategorií (do 18 let, 18-64, nad 65) v pracovní a volné dny v měsícíh dubnu až červnu. Záměrně nejsou zahrnuty letní měsíce. Graf ukazuje, že výrazný rodzí v nošení přilby je u seniorů - v pracovní dny je přilba přítomná jen u 20 % nehod, ve volné dny u 33 %. U dospělých a dětí jsou rozdíly nižší, do tří procent.

## `summarise()` has grouped output by 'pracovni_den'. You can override using the
## `.groups` argument.

Další dva grafy ukazují nošení přileb v pracovní a volné dny - srovnání květen/červen vs. červenec/srpen. V pracovní dny pozorujeme o prázdninách vyšší nošení přileb u dětí a to o cca 7 %. U dospělých a seniorů je nošení přileb o prázdninách nepatrně nižší (o cca 1-2 %). Vo volné dny pozorujeme u všech tří skupin vyšší nošení přileb o prázdninách a to o cca 2-5 %. Největší rodzíl je opět u věkové kategorie děti.

## `summarise()` has grouped output by 'mesic_cat'. You can override using the
## `.groups` argument.

## `summarise()` has grouped output by 'mesic_cat'. You can override using the
## `.groups` argument.

Nošení přileb u spolujezdců

Jeden z předchozích grafů ukazova, že nejvyšší nošení přilby je u dětí do věku 4 let. Lze předpokládat, že se jedná především o děti, které jedou jako spolujezdci v sedačce či vozíku. To do značné míry podporuje následující graf. U spolujezdců je nošení přilby přibližně 80 % první tři roky života, kdy děti jezdí výhradně s rodiči, případně s prarodiči. Od šesti let se nošení přilby u spolujezdců pohybuje okolo 20 % a lze očekávat, že děti v tomto věku nejezdí jako spolujezdci s rodiči, ale spíše se svými vrstevníky. U řidičů pozorujeme lineární pokles v nošení přilby z 75 na 50 % v průběhu prvních 15 let života.

## `summarise()` has grouped output by 'vek'. You can override using the `.groups`
## argument.

Poměr šancí - ochranný efekt nošení přilby

Následující graf ukazuje poměr šancí, že následky nehody budou mírné (lehké zranění nebo bez zranění) pokud cyklista má přilbu. Hodnota 1 znamená, že šance mírných následků je stejná pro cyklistu s přilbou i bez přilby. Hodnota nižší než 1 ukazuje, že šance mírných následků je vyšší bez přilby. Hodnota vyšší než 1 ukazuje, že šance mírných následků je vyšší s přilbou. Kromě bodového odhadu poměru šancí jsou vyznačeny i intervaly spolehlivosti na úrovni 95 %. Pokud se hodnota 1 nachází mimo interval spolehlivosti, je výsledek statisticky významný.

Jedinou skupinou nehod, kdy přilba nesnižuje šanci vážných nehod, jsou SVC (single vehicle crashes) s alkoholem.

Mnoho skupin nehod se navzdájem překrývá, proto je dobré porovnávat jen ty skupiny, které jsou disjunktní. Mezi disjunktními skupinami jsou pouze tři dvojice, kdy je poměr šancí tak rozdílný, že se intervaly spolehlivosti nepřekrývají.

Zajímavé je, že přilba poskytuje vyšší ochranný efekt u žen, ale jak ukázaly grafy výše, ženy nosí přilbu méně než muži.

Nošení přilby podle legislativy

Cyklisty lze rozdělit do tří kategarií podle toho, zda se jich někdy během života týkala povinnost nosit cyklistickou přilbu.

U cyklistů, kterých se povinnost nosit přilbu týká celý jejich život je podíl nošení přileb vysoký, blížící se 60 %. U skupiny, které se povinnost týká jen část života došlo ke skokovému zvýšení podílu nošení přilby v roce 2006 na 35 % a od roku 2006 se tento podíl nemění. U cyklistů, kteří nikdy neměli povinnost nosit přilbu dochází k postupnému zvyšování podílu nošení přilby, který je nyní okolo 35 % a v psledních třech letech byl lehce vyšší než u skupiny cyklistů, kerých se někdy v životě povinnost nosit ckylistickou přilbu týkala.

## `summarise()` has grouped output by 'rok'. You can override using the `.groups`
## argument.