##################################################
## Zaciname s R #################################
##################################################


#objekt nejprve musi být vytvoren, pokud napisu pouze vlak, tak R si mysli ze je to objekt, ale nema k němu zadny obsah, tak provedeni takového kodu k nicemu nevede
vlak

#abych vytvořil objek, musím ho něčím naplnit napsanim kodu, v tomto případě ho jednoduchym kodem naplnim slovem vlak, pokud v R píšu nějaký text, musí být v uvozovkách
#kod se spousti oznacenim a nasledne stisknutim ctrl+enter
##radky s kodem maji ve skriptu cernou barvu, komentare zelenou. Napsani komentere se docili napsanim # (pravy alt+x)
#### jmeno objektu vzdy bez diakritiky, mezer a specialnich znaku, namisto mezery pouzivejte _ (shift + pomlcka)
## objekt vznika nejakou operaci (prikazem) nebo "definici"
## objekt a operace jsou oddeleny pomoci znaku <- (jde o 2 znaky, prvni lze napsat pomoci praveho Altu a otazniku obvykle umisteneho hned nad pravym altem, pomlcka je normalni pomlcka nebo minus z numericke klavesnice)

#objekt  operator  definice
  vlak     <-       "vlak"
  vlak     =      "vlak"


#pri naplnovani objektu se cisla  pisi bez uvozovek, pokud napisu cislo v uvozovkách, r jej bude brát jako text
jedna_cislo <- 1
jedna_text <- "1"

#to jestli je objekt naplnen cisly nebo textem ma dusledky pro mozne operace 
jedna_text + 1
jedna_cislo + 1

#ackoli dudeme pracovat s objekty, ktere jsou tvoreny cisly a pismeny, tak objektem muze byt i obrazek, mapa, video atd.

#objekt muze být tvoren vice prvky, v tom prípade mluvíme o tzv. vektoru
#zde je objekt vytvaren pomoci oparace c (Concatenate function), která shlukne vice prvku do jednoho objektu
#objekt  operator  prikaz
  vlak      <-            c("lokomotiva", "vagon", "vagon", "vagon")
# neni mozné aby se v R dva objekty jmenovaly stejne, pokud nechame vytvorit novy objekt se jmenem již existujiciho objektu, tak ten puvodni objekt je prepsan a ztracen
#R je citlive na male a velke pismena, takze muzeme novy objekt vytvorit treba pod jmenem Vlak
Vlak <- c("lokomotiva", "vagon", "vagon", "vagon")
# takovy postup nedoporucuju, protože ve fontu R je u rady písmen tezko rozlisitelne, zda je velke nebo male
#původnímu objektu přejmenování nově vzniklého život nevrátí, pro jeho obnovení musíme spustit kód znovu


trida <- c(0, 1, 2, 2)

#pokud je jeden z prvku vektoru text, tak je za text povazovan kazdy prvek vektoru
pocet_cestujicich <- c("nikdo", 55, 32,100)

pocet_cestujicich + 1

platici <- c(0, 53, 27, 96)
nacerno <- c(0, 2, 5, 4)

platici + nacerno

#pri vytvareni objektu je potreba dodrzovat poradi, vznikajici objekt je vlevo a zpusob vytvoreni je za operatorem
celkem = platici + nacerno
platici + nacerno = celkem

#kombinaci vektoru muze vzniknout data.frame (vpodstate to co zname pod pojmem tabulka)
data.frame(  vlak = c("lokomotiva", "vagon", "vagon", "vagon"), platici =c(0, 53, 27, 96), nacerno = c(0, 2, 5, 4))
vlak_komplet <- data.frame(  vlak = c("lokomotiva", "vagon", "vagon", "vagon"), platici =c(0, 53, 27, 96), nacerno = c(0, 2, 5, 4))

#pri praci s data.frame je potreba pri identifikaci objektu pouzit jmeno objektu, znak $ (napise se pravym altem + ů) a jmeno sloupce
vlak_komplet$platici
vlak_komplet$platici + vlak_komplet$nacerno
vlak_komplet$cestujici = vlak_komplet$platici + vlak_komplet$nacerno
vlak_komplet




##### Otevreni dat z volby.cz ###################
## kandidati v obecnich volbach ################


#rozbaleni zazipované slozky
## vsechny soubory a slozky, ke kterym pristupujete pres R, musi mit uvedenou cestu, kdyz pracujete jen s jednou slozkou, jde to zjednosit nastavenim pracovni slozky, ale to muze zkomplikovat postup, kdyz potrebujete neco odjinud
### cestu zjistite tak, ze kliknete pravym na soubor a pote na vlastnosti na konci nabidky
#### ve windows jsou jednotlive urovne oddeleny pomoci \ ale r pouziva \\ nebo /, takze to je potreba vzdy upravit 
## soubory ktere nahrajete do r neprjemovavejte v jinych softwarech a nepresouvejte, pokud ano, pak jmeno a cestu zmente i v R


unzip(zipfile = "C:\\Users\\petrh\\Documents\\politologie\\vyuka\\datamanagment\\KV2018reg20181008_csv.zip", exdir = "C:\\Users\\petrh\\Documents\\politologie\\vyuka\\datamanagment")

#nacteni souboru 
##r je objektovy jazyk, takze pro vetsinu operaci je vhodne rict, ze ma vzniknout  objekt, ten se v tomto pripade jmenuje kandidati
# nacteni souboru je slozeno z funkce read.csv, cesty k souboru a urceni oddelovace sloupců (sep=";"), v tomto pripade je oddelovacem strednik
# do R lze nacist i jine formaty .xls, .sav, .dta apod., bude ukazano pozdeji

#objekt           #operace
                  #funkce     cesta k souboru                                                          oddelovac
kandidati_2018 <- read.csv("C:\\Users\\petrh\\Documents\\politologie\\vyuka\\datamanagment\\kvrk.csv", sep=";")

#zobrazeni datasetu
View(kandidati_2018)

#zobrazeni několika horních řádků datasetu
head(kandidati_2018)

#zobrazeni statistickeh popisu datasetu
summary(kandidati_2018)