starsi_data/sondy_prepare_data.R

In martinmodrak/revize-rs: Code for analysis of revize-rs project data

rm(list = ls())

library(tidyverse)

df <- readxl::read_excel("private_data/Sondy_Kolo_7_DATA_pro_Orla.xlsx", skip = 1)

glimpse(df)

df <- df %>%
  transmute(id = id...1,
            q0_clen_junaka = `q0[1]`,  #Otazka je "jsi clen ve veku 15-26 let"
         q0_vudce_oddilu = `q0[2]`,
         q0_ve_vedeni_oddilu = `q0[3]`,
         q0_vedouci_strediska = `q0[4]`,
         q0_predseda_kraje_okresu = `q0[5]`,
         q0_vychovny_zpravodej = `q0[6]`,
         q0_vudce_rs_kmene = `q0[7]`,
         q0_ani_jedna = `q0[8]`,
         vek = qs1Age,
         pohlavi = qs2Sex,
         velikost_obce = qs3Size,
         kraj = qsKraj,
         pocet_clenu_strediska = qs4StredSize,
         poc_oddilu = qs5StredOdd,
         pocet_obyvatel_kde_stredisko = qs6StredSize,
         pocet_clenu_v_oddile = qs7OddVel,
         v_oddile_benjaminci = `qs8OddVychKat[1]`,
         v_oddile_vlcata = `qs8OddVychKat[2]`,
         v_oddile_svetlusky = `qs8OddVychKat[3]`,
         v_oddile_skauti = `qs8OddVychKat[4]`,
         v_oddile_skautky = `qs8OddVychKat[5]`,
         v_oddile_roveri = `qs8OddVychKat[6]`,
         v_oddile_rangers = `qs8OddVychKat[7]`,
         funkce_v_oddile_zastupce_VO = `qs9OddFce[1]`,
         funkce_v_oddile_oddilovy_radce = `qs9OddFce[2]`,
         funkce_v_oddile_druzinovy_radce = `qs9OddFce[3]`,
         funkce_v_oddile_clen_vedeni_oddilu = `qs9OddFce[4]`,
         funkce_v_oddile_jine = `qs9OddFce[other]`,
         je_ve_meste_univerzita = qRS1StredUniv,
         studium_ve_meste_strediska = qRS2Studium,
         pocet_obyvatel_kde_vetsina_roku = qRS3Size,
         realne_vedeni_oddilu = VOq1,
         kolik_let_vedeni = VOq2,
         pomoc_strediska_s_planovanim_cinnosti = `VOq3[1]`,
         pomoc_strediska_s_resenim_problemu = `VOq3[2]`,
         pomoc_strediska_s_radcovske_vzdelavani = `VOq3[3]`,
         pomoc_strediska_s_vzdelavani_na_miru = `VOq3[4]`,
         pomoc_strediska_s_pomoc_s_vyberem_vzdelavaci_akce = `VOq3[5]`,
         pomoc_strediska_s_podpora_prace_s_novym_vychovnym_programem = `VOq3[6]`,
         pomoc_strediska_s_poradanim_akci_pro_oddilovou_radu = `VOq3[7]`,
         pomoc_strediska_s_poradanim_stridskovych_akci = `VOq3[8]`,
         pomoc_strediska_s_tipy_na_cinnost = `VOq3[8]`,
         pomoc_strediska_dalsi = VOq4,
         potreba_pomoci = VOq5,
         potreba_pomoci_real = VOq6A,
         potreba_pomoci_moznost = VOq6B,
         pomoc_od_real_zastupce_vudce_oddilu = `VOq7A[1]`,
         pomoc_od_real_rada = `VOq7A[2]`,
         pomoc_od_real_vudce_jiny_oddil = `VOq7A[3]`,
         pomoc_od_real_vudce_strediska = `VOq7A[4]`,
         pomoc_od_real_byvaly_vudce_oddilu = `VOq7A[5]`,
         pomoc_od_real_byvaly_vudce_strediska = `VOq7A[6]`,
         pomoc_od_real_vychovny_zpravodaj_strediska = `VOq7A[7]`,
         pomoc_od_real_vychovny_zpravodaj_okresu = `VOq7A[8]`,
         pomoc_od_real_strediskova_rada = `VOq7A[9]`,
         pomoc_od_real_nekdo_jiny = `VOq7A[10]`,
         pomoc_od_moznost_zastupce_vudce_oddilu = `VOq7B[1]`,
         pomoc_od_moznost_rada = `VOq7B[2]`,
         pomoc_od_moznost_vudce_jiny_oddil = `VOq7B[3]`,
         pomoc_od_moznost_vudce_strediska = `VOq7B[4]`,
         pomoc_od_moznost_byvaly_vudce_oddilu = `VOq7B[5]`,
         pomoc_od_moznost_byvaly_vudce_strediska = `VOq7B[6]`,
         pomoc_od_moznost_vychovny_zpravodaj_strediska = `VOq7B[7]`,
         pomoc_od_moznost_vychovny_zpravodaj_okresu = `VOq7B[8]`,
         pomoc_od_moznost_strediskova_rada = `VOq7B[9]`,
         pomoc_od_moznost_nekdo_jiny = `VOq7B[10]`,
         stredisko_zajistuje_planovani_cinnosti = `ZVOq2[1]`,
         stredisko_zajistuje_konkretni_vychovne_problemy = `ZVOq2[2]`,
         stredisko_zajistuje_radcovske_vzdelavani = `ZVOq2[3]`,
         stredisko_zajistuje_vzdelavani_na_miru = `ZVOq2[4]`,
         stredisko_zajistuje_pomoc_s_vyberem_vzdelavaci_akce = `ZVOq2[5]`,
         stredisko_zajistuje_podpora_prace_s_novym_programem = `ZVOq2[6]`,
         stredisko_zajistuje_poradani_akci_pro_oddilovou_radu = `ZVOq2[7]`,
         stredisko_zajistuje_poradani_strediskovych_akci = `ZVOq2[8]`,
         stredisko_zajistuje_typy_na_cinnost = `ZVOq2[9]`,
         potreba_pomoci2 = ZVOq4,
         potreba_pomoci_real2 = ZVOq5A,
         potreba_pomoci_moznost2 = ZVOq5B,
         pomoc_od_real_vudce_oddilu2 = `ZVOq6A[1]`,
         pomoc_od_real_zastupce_vudce_oddilu2 = `ZVOq6A[2]`,
         pomoc_od_real_rada2 = `ZVOq6A[3]`,
         pomoc_od_real_vudce_jiny_oddil2 = `ZVOq6A[4]`,
         pomoc_od_real_vudce_strediska2 = `ZVOq6A[5]`,
         pomoc_od_real_byvaly_vudce_oddilu2 = `ZVOq6A[6]`,
         pomoc_od_real_byvaly_vudce_strediska2 = `ZVOq6A[7]`,
         pomoc_od_real_vychovny_zpravodaj_strediska2 = `ZVOq6A[8]`,
         pomoc_od_real_vychovny_zpravodaj_okresu2 = `ZVOq6A[9]`,
         pomoc_od_real_strediskova_rada2 = `ZVOq6A[10]`,
         pomoc_od_real_nekdo_jiny2 = `ZVOq6A[11]`,
         pomoc_od_moznost_vudce_oddilu2 = `ZVOq6B[1]`,
         pomoc_od_moznost_zastupce_vudce_oddilu2 = `ZVOq6B[2]`,
         pomoc_od_moznost_rada2 = `ZVOq6B[3]`,
         pomoc_od_moznost_vudce_jiny_oddil2 = `ZVOq6B[4]`,
         pomoc_od_moznost_vudce_strediska2 = `ZVOq6B[5]`,
         pomoc_od_moznost_byvaly_vudce_oddilu2 = `ZVOq6B[6]`,
         pomoc_od_moznost_byvaly_vudce_strediska2 = `ZVOq6B[7]`,
         pomoc_od_moznost_vychovny_zpravodaj_strediska2 = `ZVOq6B[8]`,
         pomoc_od_moznost_vychovny_zpravodaj_okresu2 = `ZVOq6B[9]`,
         pomoc_od_moznost_strediskova_rada2 = `ZVOq6B[10]`,
         pomoc_od_moznost_nekdo_jiny2 = `ZVOq6B[11]`,
         obsazeni_roli_vychovny_zpravodaj = `VOVSq8[1]`,
         obsazeni_roli_zpravodaj_pro_vzdelavani = `VOVSq8[2]`,
         obsazeni_roli_zpravodaj_nic = `VOVSq8[3]`,
         papirova_fce_vychovny_zpravodaj = `VOVSq9Vzp[1]`,
         papirova_fce_zpravodaj_pro_vzdelavani= `VOVSq10Zvzd[1]`,
         je_rs_kmen_ve_stredisku = RSq1Spol,
         je_vice_rs_kmenu_ve_stredisku = RSq2,
         je_rs_kmen_registrovany = RSq3,
         rs_kmen_registace_neni_registrovany_neni_vudce = `RSq4[1]`,
         rs_kmen_registace_neni_dost_clenu = `RSq4[2]`,
         rs_kmen_registrace_clenove_se_neregistruji = `RSq4[3]`,
         rs_kmen_registrace_clenove_se_registruji_u_oddilu = `RSq4[4]`,
         rs_kmen_registrace_clenove_se_registruji_pod_strediskem = `RSq4[5]`,
         rs_kmen_registrace_registrace_cinnosti_nepomuze = `RSq4[6]`,
         rs_kmen_registrace_jine = `RSq4[other]`,
         je_neaktivni_rs_kmen = RSq5,
         jsi_clenem_rs_kmene = RSq6Clen,
         jak_casto_se_ucastnis = RSq7,
         ucast_rs_kmen_procenta_lide = `RSq8[1]`,
         ucast_rs_kmen_procenta_zajimavy_program = `RSq8[2]`,
         ucast_rs_kmen_procenta_odpocinek_od_oddilu = `RSq8[3]`,
         ucast_rs_kmen_procenta_moznost_realizace = `RSq8[4]`,
         ucast_rs_kmen_procenta_setrvacnost = `RSq8[5]`,
         ucast_rs_kmen_procenta_neco_jineho = `RSq8[6]`,
         neucast_rs_kmen_procenta_prace_na_stredisku = `RSq9[1]`,
         neucast_rs_kmen_procenta_cinnovnicka_funkce = `RSq9[2]`,
         neucast_rs_kmen_procenta_skolni_povinnosti = `RSq9[3]`,
         neucast_rs_kmen_procenta_odchod_SS_VS = `RSq9[4]`,
         neucast_rs_kmen_procenta_rodinny_zivot = `RSq9[5]`,
         neucast_rs_kmen_procenta_vztahy_ve_spolecenstvi = `RSq9[6]`,
         neucast_rs_kmen_procenta_jina_parta = `RSq9[7]`,
         neucast_rs_kmen_procenta_nemam_cas = `RSq9[8]`,
         neucast_rs_kmen_procenta_nezajimavy_program = `RSq9[9]`,
         neucast_rs_kmen_procenta_jine = `RSq9[10]`,
         ucast_jine_rs_akce = RSq10,
         ucast_jine_rs_akce_spolecne = RSq10a,
         ucast_ostatnich_jine_rs_akce = RSq11,
         cemu_das_prednost_pri_konfliktu_akci = RSq12,
         povazujes_se_za_rovera = RSq13,
         povazujes_se_za_rovera_komentar = `RSq13[comment]`,
         kolik_let_jsi_rover = RSq14A,
         kolik_let_se_nepovazujes_za_rovera = RSq14B,
         kolik_let_budes_rover = RSq14C,
         kmen_kolik_aktivnich_lidi = RSq15,
         stredisko_pocet_lidi_15_19 = `RSq16[1]`,
         stredisko_pocet_lidi_20_26 = `RSq16[2]`,
         kolik_let_rs_kmen_funguje = RSq17,
         existovalo_v_poslednich_5let = RSq18,
         duvody_zaniku_kmene = RSq19,
         kolik_let_fungoval_zanikly_rs_kmen = RSq20,
         rs_kmen_prvky_vudce = `RSq20x[1]`,
         rs_kmen_prvky_rada = `RSq20x[2]`,
         rs_kmen_prvky_ani_jedno = `RSq20x[3]`,
         rs_kmen_moje_funkce_zadna = `RSq21[1]`,
         rs_kmen_moje_funkce_vudce = `RSq21[2]`,
         rs_kmen_moje_funkce_rada = `RSq21[3]`,
         rs_kmen_moje_funkce_clen = `RSq21[4]`,
         rs_kmen_moje_funkce_jine = `RSq21[other]`,
         podpora_kmene_od_strediska = `RSq22[1]`,
         podpora_kmene_extra_clovek = RSq23,
         podpora_kmene_jine = `RSq23[other]`,
         obsazeni_roli_roversky_zpravodaj = RSq24,
         spokojenost_s_rs_zpravodajem = RSq25,
         frekvence_rs_akci_schuzky = `RSq26[1]`,
         frekvence_rs_akci_celodenni_akce = `RSq26[2]`,
         frekvence_rs_akci_vicedenni_akce = `RSq26[3]`,
         frekvence_rs_akci_tabory_expedice = `RSq26[4]`,
         spokojenost_s_frekvenci_akci = RSq27,
         roverske_akce_probehle_2roky_zavody = `RSq28[1]`,
         roverske_akce_probehle_expedice = `RSq28[2]`,
         roverske_akce_probehle_tabor = `RSq28[3]`,
         roverske_akce_duchovni_programy = `RSq28[4]`,
         roverske_akce_pobyt_v_prirode = `RSq28[5]`,
         roverske_akce_zahranicni_akce = `RSq28[6]`,
         roverske_akce_kulturni_akce = `RSq28[7]`,
         roverske_akce_diskuze = `RSq28[8]`,
         roverske_akce_tradicni_akce = `RSq28[9]`,
         roverske_akce_setkani_bez_programu_hospoda = `RSq28[10]`,
         roverske_akce_sluzba = `RSq28[11]`,
         roverske_akce_velke_rs_akce = `RSq28[12]`,
         roverske_akce_kurzy_vzdelavaci_akce = `RSq28[13]`,
         celkova_spokojenost_s_programem_rs_kmenu = RSq29,
         vyrok_o_spolecenstvi = RSq30,
         podil_priprave_programu = RSq31,
         vychovne_nastroje_vyzvy = `RSq32[1]`,
         vychovne_nastroje_projekty = `RSq32[2]`,
         vychovne_nastroje_rovernet = `RSq32[3]`,
         vychovne_nastroje_kmen = `RSq32[4]`,
         vychovne_nastroje_roversky_zacatek = `RSq32[5]`,
         vychovne_nastroje_diar = `RSq32[6]`,
         vychovne_nastroje_vlastni_stezka = `RSq32[7]`,
         vychovne_nastroje_jine = `RSq32[other]`,
         ma_kmen_vychovny_plan = RSq33,
         vlastni_zvyklosti_nic = `RSq34[1]`,
         vlastni_zvyklosti_ritual_vstupu = `RSq34[2]`,
         vlastni_zvyklosti_obnova_slibu = `RSq34[3]`,
         vlastni_zvyklosti_ritual_odchodu = `RSq34[4]`,
         vlastni_zvyklosti_ritual_predavani_vudcovstvi = `RSq34[5]`,
         vlastni_zvyklosti_jine = `RSq34[other]`,
         pomoc_u_detskych_oddilu_nic = `RSq35[1]`,
         pomoc_u_detskych_oddilu_jsem_stale_clenem = `RSq35[2]`,
         pomoc_u_detskych_oddilu_vudce_oddilu = `RSq35[3]`,
         pomoc_u_detskych_oddilu_vedu_oddil_papirove_nekdo_jiny = `RSq35[4]`,
         pomoc_u_detskych_oddilu_zastupce_oddilu_nebo_oddilovy_radce = `RSq35[5]`,
         pomoc_u_detskych_oddilu_obecna_pomoc_u_oddilu_bez_funkce = `RSq35[6]`,
         pomoc_u_detskych_oddilu_radce_druziny = `RSq35[7]`,
         pomoc_u_detskych_oddilu_pomoc_na_schuzkach = `RSq35[8]`,
         pomoc_u_detskych_oddilu_pomoc_na_tabore = `RSq35[9]`,
         pomoc_u_detskych_oddilu_pomoc_na_vypravach = `RSq35[10]`,
         pomoc_u_detskych_oddilu_pomoc_na_klubovne_zakladne_brigadach = `RSq35[11]`,
         pomoc_u_detskych_oddilu_jine = `RSq35[12]`,
         podil_casu_ve_skautu_u_detskych_oddilu = `RSq36[1]`,
         podil_casu_ve_skautu_roverska_cinnost = `RSq36[2]`,
         podil_casu_ve_skautu_ucast_nebo_pomoc_celostatni_nebo_vzdelavaci_akce = `RSq36[3]`,
         podil_casu_ve_skautu_jine = `RSq36[4]`,
         podil_casu_u_detskych_oddilu_junak_celkove = RSq37,
         odhad_zapojeni_ve_stredisku_do_detskych_oddilu_15_19 = `RSq38[1]`,
         odhad_zapojeni_ve_stredisku_do_detskych_oddilu_20_26 = `RSq38[2]`,
         vedeni_nekdo_z_rs_detsky_oddil_ale_realne_je_vedouci_nekdo_jiny = RSq39,
         souhlas_pomoc_s_detskym_oddilem_je_forma_roveringu = `RSq40[1]`,
         souhlas_rs_program_je_relaxace_od_vedeni_detskych_oddilu = `RSq40[2]`,
         souhlas_hlavni_je_vlastni_rs_cinnost_pomoc_v_oddilech_az_druhorada = `RSq40[3]`,
         souhlas_roveri_potrebuji_stezku = `RSq41[1]`,
         souhlas_roveri_potrebuji_plan_cinnosti = `RSq41[2]`,
         souhlas_roveri_potrebuji_vlastni_rs_akce = `RSq41[3]`,
         souhlas_roveri_potrebuji_letni_tabor_nebo_expedici = `RSq41[4]`,
         souhlas_roveri_potrebuji_vedouciho_kmene = `RSq41[5]`,
         souhlas_roveri_potrebuji_zastoupeni_na_strediskovych_radach = `RSq41[6]`,
         dodatek_vychovny_zpravodaj = qZaver1,
         dodatek_rs = qZaver2,
         dodatek_cokoli = qZaver3)





saveRDS(df, file = "private_data/sondy_181206.rds")