leto23a23_df <-tribble(~měsíc, ~rok_2021, ~rok_2022,"červen", 13581, 27040,"červenec", 26954, 35287,"srpen", 26602, 29308)# Compute the sum of each columnsum_row <- leto23a23_df %>%summarise(měsíc ="Součty", rok_2021 =sum(rok_2021), rok_2022 =sum(rok_2022))# Add the sum row to the tableleto23a23_df <-bind_rows(leto23a23_df, sum_row)# Compute a new columnleto23a23_df <- leto23a23_df %>%mutate(procentualni =round((rok_2022 - rok_2021) / rok_2021 *100, 2))kable(leto23a23_df, format ="html")
měsíc
rok_2021
rok_2022
procentualni
červen
13581
27040
99.10
červenec
26954
35287
30.92
srpen
26602
29308
10.17
Součty
67137
91635
36.49
Interpretace:
Už loni v létě lidé začali více cestovat. Počet sjednání cestovních pojištění se podle statistik portálu Srovnejto loni v létě meziročně zvýšil o 36 %. Navzdory zdražování lidé letos cestování moc neomezili. Podle letošních, zatím neúplných dat by letošní sezóna mohla být s tou loňskou srovnatelná.
Zima 2022 a 2023
porovnáváme letošní a loňskou zimu
Code
zima22a23_df <-tribble(~měsíc, ~rok_2022, ~rok_2023,"leden", 8482, 13086,"únor", 11815, 17829)# Compute the sum of each columnsum_row <- zima22a23_df %>%summarise(měsíc ="Součty", rok_2022 =sum(rok_2022), rok_2023 =sum(rok_2023))# Add the sum row to the tablezima22a23_df <-bind_rows(zima22a23_df, sum_row)# Compute a new columnzima22a23_df <- zima22a23_df %>%mutate(procentualni =round((rok_2023 - rok_2022) / rok_2022 *100, 2))kable(zima22a23_df, format ="html")
měsíc
rok_2022
rok_2023
procentualni
leden
8482
13086
54.28
únor
11815
17829
50.90
Součty
20297
30915
52.31
Možná interpretace
Vidíme velký meziroční nárůst cestovních pojištění v zimě
Lidé letos v zimě více cestovali ať už za teplem nebo na hory. Podle statistik portálu Srovnejto letos v zimě meziročně vzrostl zájem o cestovní pojištění o více než 50 %.
Jaro 2922 a 2023
porovnáváme letošní a loňské jaro
Code
jaro22a23_df <-tribble(~měsíc, ~rok_2022, ~rok_2023,"březen", 14422, 17101, "duben", 10807, 12601, "květen", 13901, 14895)# Compute the sum of each columnsum_row <- jaro22a23_df %>%summarise(měsíc ="Součty", rok_2022 =sum(rok_2022), rok_2023 =sum(rok_2023))# Add the sum row to the tablejaro22a23_df <-bind_rows(jaro22a23_df, sum_row)# Compute a new columnjaro22a23_df <- jaro22a23_df %>%mutate(procentualni =round((rok_2023 - rok_2022) / rok_2022 *100, 2))kable(jaro22a23_df, format ="html")
měsíc
rok_2022
rok_2023
procentualni
březen
14422
17101
18.58
duben
10807
12601
16.60
květen
13901
14895
7.15
Součty
39130
44597
13.97
Možná interpretace
Roste i zájem o jarní cestování, i když ne tolik jako v případě zimních cest
Počet sjednaných cestovních pojištění letos na jaře vzrostl o 14 %. Téměř z poloviny jde o kratší cesty a prodloužené víkendy.Lidé více cestují na eurovíknedy…
Délka cest:
Češi objevují kouzlo kratších cest - na prodloužené cestovní víkendy se nejčastěji vydávají v zimě a na jaře.
Jestli chcete, dodám data, ale tohle se hodí jako nějaké doplňující tvrzení…
Lidé si cestovko sjednávají na poslední chvíli
Jestli uvažuju správně a položka “Day_to_effective” v powerBI dokumentu je počet dní do platnosti cestovka, tak by to odpovídalo tvrzení, že lidé hodně kupují cestovní pojištění na poslední chvíli - nejčastěji den před cestou (já to tak taky dělám).
Takže můžeme říci:
“Lidé si nejčastěji kupují cestovní pojištění na poslední chvíli. Podle statistik portálu Srovnejto, si téměř dvě třetiny lidí sjedná cestovní pojištění v ten samý den nebo pouhý jeden den před cestou.”
Přesně je to 61 %.
13 % lidí si cestovní pojištění vyřídí dva dny před cestou a 7 % 3 dny před tím, než vycestují. Více než týden dopředu si pojištění sjedná jen malý zlomek cestovatelů.
Source Code
---title: "Cestovní pojištění trendy a statistiky"author: "Michal Doležel"format: html: code-fold: true code-tools: trueeditor: visual---Výběr některých informací z toho poweBI dokumentu- V bodech jsou interperatace*Kurzívou* pak návrhy toho, co bychom mohli říct```{r}#| label: importy#| include: falselibrary(tidyverse)library(ggplot2)library(knitr)library(kableExtra)library(dplyr)```## Celkový počet sjednaných cestovních pojištění- porovnáváme letní sezónu 2021 a 2022- lidé loni začali mnohem víc cestovat- letos to podle dat z června bude nejspíš podobné```{r}leto23a23_df <-tribble(~měsíc, ~rok_2021, ~rok_2022,"červen", 13581, 27040,"červenec", 26954, 35287,"srpen", 26602, 29308)# Compute the sum of each columnsum_row <- leto23a23_df %>%summarise(měsíc ="Součty", rok_2021 =sum(rok_2021), rok_2022 =sum(rok_2022))# Add the sum row to the tableleto23a23_df <-bind_rows(leto23a23_df, sum_row)# Compute a new columnleto23a23_df <- leto23a23_df %>%mutate(procentualni =round((rok_2022 - rok_2021) / rok_2021 *100, 2))kable(leto23a23_df, format ="html")```### Interpretace:*Už loni v létě lidé začali více cestovat. Počet sjednání cestovních pojištění se podle statistik portálu Srovnejto loni v létě meziročně zvýšil o 36 %. Navzdory zdražování lidé letos cestování moc neomezili. Podle letošních, zatím neúplných dat by letošní sezóna mohla být s tou loňskou srovnatelná.*## Zima 2022 a 2023- porovnáváme letošní a loňskou zimu```{r}#| label: zimazima22a23_df <-tribble(~měsíc, ~rok_2022, ~rok_2023,"leden", 8482, 13086,"únor", 11815, 17829)# Compute the sum of each columnsum_row <- zima22a23_df %>%summarise(měsíc ="Součty", rok_2022 =sum(rok_2022), rok_2023 =sum(rok_2023))# Add the sum row to the tablezima22a23_df <-bind_rows(zima22a23_df, sum_row)# Compute a new columnzima22a23_df <- zima22a23_df %>%mutate(procentualni =round((rok_2023 - rok_2022) / rok_2022 *100, 2))kable(zima22a23_df, format ="html")```### Možná interpretaceVidíme velký meziroční nárůst cestovních pojištění v zimě*Lidé letos v zimě více cestovali ať už za teplem nebo na hory. Podle statistik portálu Srovnejto letos v zimě meziročně vzrostl zájem o cestovní pojištění o více než 50 %.*## Jaro 2922 a 2023- porovnáváme letošní a loňské jaro```{r}#| label: jarojaro22a23_df <-tribble(~měsíc, ~rok_2022, ~rok_2023,"březen", 14422, 17101, "duben", 10807, 12601, "květen", 13901, 14895)# Compute the sum of each columnsum_row <- jaro22a23_df %>%summarise(měsíc ="Součty", rok_2022 =sum(rok_2022), rok_2023 =sum(rok_2023))# Add the sum row to the tablejaro22a23_df <-bind_rows(jaro22a23_df, sum_row)# Compute a new columnjaro22a23_df <- jaro22a23_df %>%mutate(procentualni =round((rok_2023 - rok_2022) / rok_2022 *100, 2))kable(jaro22a23_df, format ="html")```### Možná interpretaceRoste i zájem o jarní cestování, i když ne tolik jako v případě zimních cest*Počet sjednaných cestovních pojištění letos na jaře vzrostl o 14 %. Téměř z poloviny jde o kratší cesty a prodloužené víkendy.* *Lidé více cestují na eurovíknedy...*## Délka cest: *Češi objevují kouzlo kratších cest - na prodloužené cestovní víkendy se nejčastěji vydávají v zimě a na jaře.*- Jestli chcete, dodám data, ale tohle se hodí jako nějaké doplňující tvrzení...## Lidé si cestovko sjednávají na poslední chvíli- Jestli uvažuju správně a položka "Day_to_effective" v powerBI dokumentu je počet dní do platnosti cestovka, tak by to odpovídalo tvrzení, že lidé hodně kupují cestovní pojištění na poslední chvíli - nejčastěji den před cestou (já to tak taky dělám).**Takže můžeme říci:***"Lidé si nejčastěji kupují cestovní pojištění na poslední chvíli. Podle statistik portálu Srovnejto, si téměř dvě třetiny lidí sjedná cestovní pojištění v ten samý den nebo pouhý jeden den před cestou."*Přesně je to 61 %.*13 % lidí si cestovní pojištění vyřídí dva dny před cestou a 7 % 3 dny před tím, než vycestují. Více než týden dopředu si pojištění sjedná jen malý zlomek cestovate*lů.
