Sys.setlocale(locale = "Czech") library(readxl) library(tidyverse) library(here)
data <- read_excel(here("private_data", "ZV-nastroje-RP-Odpovedi.xlsx")) nastroje <- c("Výzvy", "Projekty","Roverské akce","Roverské kurzy", "Oddíl","Zahraničí","Roverský diář", "časopis Roverský kmen", "Roversk. začátek", "Roverští průvodci")
data %>% crossing(tibble(nastroj = nastroje)) %>% group_by(nastroj) %>% mutate(zna_nastroj = replace_na( grepl(unique(nastroj), `Které nástroje Roverského programu znáš?`), FALSE)) %>% summarise(zna = mean(zna_nastroj), zna_low = qbeta(0.025, sum(zna_nastroj) + 1, n() - sum(zna_nastroj) + 1), zna_high = qbeta(0.975, sum(zna_nastroj) + 1, n() - sum(zna_nastroj) + 1), .groups = "drop" ) %>% ggplot(aes(x = nastroj, ymin = zna_low, ymax = zna_high, y = zna )) + geom_errorbar() + geom_point() + theme(axis.text.x = element_text(angle = 90))
Ale vypadá to, že roverský začátek vyplnil někdo jako "Other", takže se na to asi ani neptali. Průvodci byli 3x, tak na to se asi ptali...
Co dalšího bylo v "OTher?"
data %>% pull(`Které nástroje Roverského programu znáš?`) %>% paste0(collapse = ",") %>% strsplit(",") %>% unlist() %>% gsub("^ ", "", .) %>% unique() %>% setdiff(nastroje)
data %>% mutate(zna_vyzvy = grepl("Výzvy", `Které nástroje Roverského programu znáš?`)) %>% group_by(zna_vyzvy) %>% summarise(vyuziti = mean(`Jak využíváš roverské výzvy?`, na.rm = TRUE), muzou_nebyt = mean(`Dokážeš si představit že by roverské výzvy nebyly?`, na.rm = TRUE), .groups = "drop") data %>% mutate(zna_projekty = grepl("Projekty", `Které nástroje Roverského programu znáš?`)) %>% group_by(zna_projekty) %>% summarise(vyuziti = mean(`Využíváte roverské projekty ve vašem programu?`, na.rm = TRUE), muzou_nebyt = mean(`Dokážeš si představit že by roverské projekty nebyly?`, na.rm = TRUE), .groups = "drop")
Takže vysoká hodnota asi znamená "hodně využívám" nebo nějaké "Ano" ??
data %>% group_by(`Používáš Roverský diář?`) %>% summarise(n(), .groups = "drop")
data %>% pull(`Co ti v roverském programu chybí? Přebývá tam něco?`) %>% unique()
data %>% pull(`Jak ti můžeme pomoct, co se týče vašeho roverského programu?`) %>% unique()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.