#stahnete vysledky krajskych voleb 2016
#https://www.volby.cz/opendata/kz2016/KZ2016data20161008_xlsx.zip

#aktivujte knihovnu umoznujici otevrit excel



#nactete soubory kzt6p-1 - kzt6p-13 pod jmeny k1, k2, ..., k13





















#kolik maji jednotlive tabulky sloupcu a radku





#jak se sloupce jmenuji? Jsou nazvy stejne v tabulce k1 a k13
names(k1)
names(k13)

#jake jmeno ma 5 sloupec
names(k1)[5]

#jak se jmenuje prvnich 10 sloupcu
names(k1)[1:10]
k1[0, 1:10]
#jak se jmenuje poslednich 10 sloupcu


#pridani oznaceni kraje do tabulky
k1$kraj <- "stredocesky"
k2$kraj <- "jihocesky"
k3$kraj <- "plzensky"
k4$kraj <- "karlovarsky"
k5$kraj <- "ustecky"
k6$kraj <- "liberecky"
k7$kraj <- "kralovehradecky"
k8$kraj <- "pardubicky"
k9$kraj <- "vysocina"
k10$kraj <- "jihomoravsky"
k11$kraj <- "olomoucky"
k12$kraj <- "zlinsky"
k13$kraj <- "moravskoslezsky"


#kdyz mame v kazde tabulce stejne mnozstvi sloupcu se stejnymi nazvy, tak muzeme tabulku spojit pomoci prikazu rbind
?rbind
k1a2 <- rbind(k1,k2)
kraje <- rbind(k1, k2,k3, k4,k5,k6, k7,k8, k9,k10,k11, k12,k13)

#rozdeleni tabulky pomoci pozic sloupcu
prvni_pulka <- kraje[,1:43] # funguje podobne jako lode, jen sloupce i rdky jsou oznaceny cisly a lze strilet do vetsi plochy, pred carkou jsou radky, za carkou sloupce, kdyz zustane prazdne, zamena to vyber vseho
druha_pulka <- 

#pripojeni sloupcu pomoci cbind
kraje_znovu <- cbind(prvni_pulka, druha_pulka)

#rozdil mezi cbind a rbind
#cbind: -- + -- = ----
#rbind: ----
#        +    = ---- 
#       ----    ----

names(kraje)
#########################################
## Vyber sloupcu z tabulky #############
########################################


#vyber dle nazvu sloupcu 
obec <- kraje["OBEC"] #kdyz mame jeden prvek, tak jej napiseme do hranate zavorky
krajeok <- kraje[c("kraj", "OBEC", "OKRSEK", "KSTRANA" ,  "POC_HLASU")] #kdyz mame prvku vice, musime je zapsat do kulate zavorky a pred ni napsat pismeno c, to urcuje, ze v zavorce je list hodnot
#vyber dle pozice sloupcu
names(kraje)[c(6, 9, 10)]
krajeok_jinak <- kraje[c(6, 9, 10)]
#vyber dle pozice sloupcu
#smazani sloupce
kraje$TYP_FORM <- NULL #pozor, jde o nevratnou operaci, pokud se chcete vratit zpet, je nutne provest prikaz vyrabejici objekt kraje
#smazani vice sloupcu
kraje[c("ID_OKRSKY","TYP_FORM","OPRAVA","CHYBA","OKRES")] <- list(NULL) #pozor, jde o nevratnou operaci, pokud se chcete vratit zpet, je nutne provest prikaz vyrabejici objekt kraje

kraje <- rbind(k1, k2,k3, k4,k5,k6, k7,k8, k9,k10,k11, k12,k13)
#vyberte sloupce obec, poc_hlasu, a hlasy_01 - hlasy_05 z tabulky kraje

#smazte poslednich 50 sloupcu z tabulky kraje



#####################################
## vyber radku z tabulky ############
#####################################

#vyber dle pozice

krajeok[20:30,]

#vyber dle hodnot

ods <- subset(krajeok, krajeok$KSTRANA == 2)
kromeods <- subset(krajeok, krajeok$KSTRANA != 2)
ods_jmk <- subset(krajeok, krajeok$KSTRANA == 2 & krajeok$kraj == "jihomoravsky")
table(krajeok$kraj)
ods_morava <- subset(krajeok, krajeok$KSTRANA == 2 & (krajeok$kraj == "jihomoravsky"  |krajeok$kraj == "olomoucky"| krajeok$kraj == "zlinsky" |krajeok$kraj == "moravskoslezsky" ))
#



#pokud chceme spojit vice tabulek
#list = sada hodnot
analyzovat = Reduce(function(x,y) merge(x,y,by="id_forum",all=TRUE), list(forum, spfce,sp_bfce, fce,clen))