#cesty outputDir <- "seminarICT"; dir.create(file.path(getwd(), outputDir), showWarnings = FALSE); outputPath <- file.path(getwd(), outputDir) path <- outputPath #data jednotlivých otázek schmeilall<-c(10, 72, 80 ,19,2, 15, 5 ,9 ,27 ,95, 56, 48, 44 ,18, 1 ,6 ,3 ,3, 25, 3 ,22, 39, 23, 57 ,11, 42, 71 ,9 ,18 ,44, 37) zimaallNE<-c(16 ,55, 41, 6, 1, 2 ,21, 5, 8, 53, 35, 18, 2, 3, 20, 44 ,11 ,47 ,42 ,3 ,13, 3 ,58 ,5 ,10, 1, 2 ,1 ,1 ,3 ,1) zimallNEplusPC<-c(53, 85 ,74 ,8, 1, 3 ,24 ,5 ,8 ,66 ,40, 26 ,2, 3, 27 ,52, 24, 51, 51 ,5 ,14, 5, 64, 8, 14, 2 ,2 ,2, 3 ,4, 2) zneniotazek<-c("1. Viděl/a jsi, jak se dojí kráva?","2. Viděl/a jsi, jak se vyrábí máslo?","3. Viděl/a jsi, jak se vyrábí sýr?","4. Viděl/a jsi někdy živý plot?","5. Viděl/a jsi někdy lézt šneka?","6. Viděl/a jsi ptačí hnízdo na stromu nebo keři?","7. Viděl/a jsi někdy angrešt na keři?","8. Viděl/a jsi někdy rybíz na keři?","9. Viděl/a jsi někdy maliny na keři?","10. Koukal/a jsi někdy do včelího úlu?","11. Slyšel/a jsi někdy zpívat slavíka?","12. Viděl/a jsi někdy živého špačka?","13. Sbíral/a jsi někdy jahody?","14. Trhal/a jsi někdy ovoce ze stromu?","15. Viděl/a jsi někdy pluh?","16. Viděl/a jsi někdy brány (nástroj na vláčení polí)?","17. Viděl/a jsi někdy, jak se seká obilí?","18. Viděl/a jsi někdy chrpy na poli?","19. Viděl/a jsi někdy vzlétnout skřivana a slyšel/a jeho zpěv?","20. Viděl/a jsi někdy běžet zajíce?","21. Viděl/a jsi někdy krtinu?","22. Viděl/a jsi někdy živého ježka?","23. Viděl/a jsi někdy ponravu chrousta (larva)?","24. Viděl/a jsi někdy letícího dravce?","25. Zaslechl/a jsi někdy volání kukačky?","26. Viděl/a jsi někdy houby v lese?","27. Viděl/a jsi někdy veverku v lese?","28. Viděl/a jsi někdy plavat husy nebo kachny?","29. Viděl/a jsi někdy plavat ryby (kromě ryb v akváriu)?","30. a) Byl jsi někdy v listnatém lese?","30. b) Byl jsi někdy v jehličnatém lese?") vek12<-c(0.1282051282,0.547008547,0.3846153846,0.0683760684,0.0085470085,0.0170940171,0.2222222222,0.0427350427,0.0598290598,0.5213675214,0.3846153846,0.2051282051,0.0256410256,0.0170940171,0.1196581197,0.4615384615,0.094017094,0.4786324786,0.4102564103,0.0341880342,0.0683760684,0.0256410256,0.6923076923,0.0512820513,0.1025641026,0.0170940171,0.0256410256,0.0170940171,0.0256410256,0.0427350427,0.0341880342) vek12PC<-c(0.4786324786,0.8717948718,0.735042735,0.094017094,0.0085470085,0.0170940171,0.2393162393,0.0427350427,0.0683760684,0.6923076923,0.4786324786,0.3162393162,0.0427350427,0.0170940171,0.188034188,0.5726495726,0.2222222222,0.5299145299,0.4957264957,0.0512820513,0.0854700855,0.0769230769,0.7179487179,0.094017094,0.1367521368,0.0170940171,0.0341880342,0.0170940171,0.0341880342,0.0427350427,0.0427350427) vek13<-c(0.1397058824,0.4779411765,0.3602941176,0.0588235294,0,0.0147058824,0.1764705882,0.0147058824,0.0661764706,0.4926470588,0.3161764706,0.1985294118,0.0073529412,0.0147058824,0.25,0.4117647059,0.0955882353,0.5073529412,0.4191176471,0.0147058824,0.1397058824,0.0073529412,0.5661764706,0.0514705882,0.1102941176,0.0073529412,0.0073529412,0.0220588235,0.0073529412,0.0294117647,0) vek13PC<-c(0.5294117647,0.7573529412,0.6691176471,0.0735294118,0,0.0220588235,0.2132352941,0.0220588235,0.0808823529,0.6397058824,0.375,0.2426470588,0.0073529412,0.0147058824,0.3161764706,0.5073529412,0.2352941176,0.5294117647,0.5147058824,0.0294117647,0.1470588235,0.0220588235,0.625,0.0735294118,0.1470588235,0.0073529412,0.0073529412,0.0367647059,0.0073529412,0.0294117647,0) vek14<-c(0.1907894737,0.6184210526,0.4671052632,0.0592105263,0.0197368421,0.0197368421,0.2368421053,0.0789473684,0.0986842105,0.5526315789,0.3486842105,0.1315789474,0.0263157895,0.0460526316,0.2105263158,0.4276315789,0.125,0.4210526316,0.4276315789,0.0394736842,0.1776315789,0.0526315789,0.4934210526,0.0526315789,0.0986842105,0.0197368421,0.0197368421,0,0.0131578947,0.0328947368,0.0131578947) vek14PC<-c(0.5526315789,0.8881578947,0.8026315789,0.0789473684,0.0197368421,0.0394736842,0.2697368421,0.0855263158,0.0986842105,0.6381578947,0.3618421053,0.2236842105,0.0263157895,0.0526315789,0.2828947368,0.4934210526,0.2565789474,0.4671052632,0.5131578947,0.0723684211,0.1842105263,0.0657894737,0.5789473684,0.0657894737,0.1315789474,0.0263157895,0.0263157895,0.0065789474,0.0460526316,0.0526315789,0.0197368421) vesnice<-c(0.1756756757,0.4459459459,0.3378378378,0.0405405405,0.027027027,0,0.1621621622,0.027027027,0.0540540541,0.3648648649,0.2027027027,0.1351351351,0.0135135135,0,0.0675675676,0.2297297297,0.0405405405,0.2972972973,0.3243243243,0,0.0675675676,0.0405405405,0.4459459459,0.027027027,0.0945945946,0.0135135135,0.0135135135,0,0.0540540541,0.0135135135,0.0135135135) vesnicePC<-c(0.4864864865,0.7432432432,0.6486486486,0.0405405405,0.027027027,0.0405405405,0.1891891892,0.0405405405,0.0810810811,0.4864864865,0.2297297297,0.1891891892,0.0135135135,0.0135135135,0.1081081081,0.2837837838,0.0945945946,0.3783783784,0.3513513514,0,0.0675675676,0.0810810811,0.5135135135,0.0405405405,0.1216216216,0.027027027,0.0135135135,0,0.0540540541,0.027027027,0.0135135135) mesto<-c(0.1510574018,0.5740181269,0.4229607251,0.0664652568,0.0060422961,0.0211480363,0.2235649547,0.0513595166,0.081570997,0.5589123867,0.3806646526,0.1842900302,0.0211480363,0.0332326284,0.2265861027,0.4773413897,0.1208459215,0.5045317221,0.4410876133,0.0362537764,0.1480362538,0.0271903323,0.6042296073,0.0574018127,0.1057401813,0.0151057402,0.0181268882,0.0151057402,0.0060422961,0.0392749245,0.0151057402) mestoPC<-c(0.5317220544,0.8610271903,0.7583081571,0.0906344411,0.0060422961,0.0241691843,0.253776435,0.0543806647,0.084592145,0.6918429003,0.4380664653,0.2719033233,0.0271903323,0.0332326284,0.3021148036,0.5740181269,0.2719033233,0.5347432024,0.5438066465,0.0634441088,0.1601208459,0.0483383686,0.6616314199,0.084592145,0.1419939577,0.0151057402,0.0241691843,0.0241691843,0.0241691843,0.0453172205,0.0211480363) nakresli <- function() { #data aktuální otázky zima=zimaallNE[otazka] #zimová čisté NE zimavcetnepc=zimallNEplusPC[otazka] #zimová NE+PC schmeil=schmeilall[otazka] #kolik řeklo Schmeilovi NE vekData<-c(vek12[otazka]*100,vek12PC[otazka]*100,vek13[otazka]*100, vek13PC[otazka]*100, vek14[otazka]*100, vek14PC[otazka]*100) #procenta NE/+TV podle věku cityData<-c(vesnice[otazka]*100, vesnicePC[otazka]*100, mesto[otazka]*100, mestoPC[otazka]*100) #procenta NE/+TV podle místa bydliště # vekData<-c(46,56,72, 79, 67, 67) #procenta NE/+TV podle věku # cityData<-c(72, 79, 67, 67) #procenta NE/+TV podle místa bydliště barvaschmeil<-c("#be0000") barvazima<-c("#4D54D8") barvazimavcetnepc<-c("#2F3485") kolacbarvy<-c( "#4D54D8", "#2F3485","#be0000","#269926", "#FF5F00") vedlekolacebarvy<-c(barvaschmeil,barvazima, barvazimavcetnepc, "#FFFFFF") barvyvek<-c("#FFF840", "#FFDD00", "#FFA840","#FF7400", "#FF5D40", "#FF0D00") barvyvesnice<-c("#99E6B0","#329000","#689CD2","#04376C") png(paste(path, "/graf_otazka_",otazka,".png", sep = ""), width= 190, height= 220, units= "mm", res = 300) layout(matrix(c(3,3,3,3,3,1,1,1,2,2), 2,5, byrow = TRUE), widths=c(1,1), )#heights=c(1,2)) #podle věku vekLeg<-c("NE","NE+PC","NE","NE+PC","NE","NE+PC") barplot(vekData, beside=T, main="Věkové skupiny Výzkum 2015", ylab="Relativní četnost", names.arg=vekLeg, col=barvyvek, ylim=c(0,100)) abline(h =schmeil, col=barvaschmeil) abline(v =2.5, untf = FALSE) abline(v =4.9, untf = FALSE) text(1, 90, paste("12 let"), pos = 4) text(3.5, 90, paste("13 let"), pos = 4) text(5.75, 90, paste("14 let"), pos = 4) text(0, schmeil+6, paste("1899"), pos = 4, col=barvaschmeil) #vesnice město cityLeg<-c("NE","NE+PC","NE","NE+PC") barplot(cityData, beside=T, main="Bydliště respondentů Výzkum 2015", ylab="Relativní četnost", names.arg=cityLeg, col=barvyvesnice, ylim=c(0,100)) abline(h =schmeil, col=barvaschmeil) abline(v =2.5, untf = FALSE) text(1, 90, paste("vesnice"), pos = 4) text(3.5, 90, paste("město"), pos = 4) text(0.05, schmeil+6, paste("1899"), pos = 4, col=barvaschmeil)# srt=90 #boxplot vse<-c(schmeilall, zimaallNE, zimallNEplusPC) z <- c( "zimaallNE", "zimallNEplusPC") x<- c("2015 NE","2015 NE+PC") dataList <- lapply(z, get, envir=environment()) names(dataList) <- x boxplot(dataList, ylim=c(0,100),horizontal=TRUE, xlab=paste("rozložení četnosti všech odpovědí/průměrná četnost u otázky č.", otazka)) text( schmeil,0.55, paste("1899 NE"), pos = 4, col=barvaschmeil, srt=90) abline(v =schmeil, col=barvaschmeil) text (zima,1.15, paste("2015 NE"), pos = 4, col=barvazima, srt=90) abline(v =zima, col=barvazima) text( zimavcetnepc,1.9, paste("2015 NE+TV/PC"), pos = 4, col=barvazimavcetnepc, srt=90) abline(v =zimavcetnepc, col=barvazimavcetnepc) title(paste("Výsledky otázky",zneniotazek[otazka]), outer = TRUE, line = -1) dev.off() } counter<-1:31 for(i in seq(along=counter)) { otazka<-c(i) nakresli() }