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

##### 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

#prikazy se spousti oznacenim a nasledne stisknutim ctrl+enter
##prikazy maji ve skriptu cernou barvu, komentare zelenou. Napsani komentere se docili npsanim # (pravy alt+x)


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
#### jmeno objektu vzdy bez diakritiky, mezer a specialnich znaku, namisto mezery pouzivejte _ (shift + pomlcka)
## objekt vznika nejakou operaci, tou je v tomto pripade nacteni souboru kvrk
## 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)
# 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=";")
#v macu by ta cesta mela byt zapsana "/Users/petrh/Documents/politologie/vyuka/datamanagment/kvrk.csv" samozrejme jmena slozek upravte dle sve situace

#pokud budeme pracovat s vice daty v jedne slozce pak lze pro usetreni casu nejprve nastavit nejakou slozku jako pracovni, potom nebude nutne mi u kazdeho souboru celou cestu
setwd("C:\\Users\\petrh\\Documents\\politologie\\vyuka\\datamanagment")
kandidati_18 <- read.csv("kvrk.csv", sep=";")

#zobrazeni datasetu, pripadne kliknutim na jmeno tabulky v environment vpravo nahore
View(kandidati_2018)

#zobrazeni struktury datasetu, nejlepsi forma zobrazeni vlastnosti promennych v datasetu
str(kandidati_2018)
#factor - ve sloupcich je text, levels ukazuje priklady textu, abecedne serazene
#int - integer - cele cislo
#num - cislo obsahujici nejaka desetinna mista
# z cisel lze udelat text, pokud se ale cisla nahraji jako text je naprava slozitejsi


#zobrazeni nekolika horních radku datasetu
head(kandidati_2018)

#zobrazeni statistickeho popisu datasetu
summary(kandidati_2018)
#VEK       
#Min.   :18  
#1st Qu.:38     čtvrtina případů má menší hodnotu
#Median :46     polovina případů má menší hodnotu
#Mean   :46.98  aritmetický průměr (geometricý střed)
#3rd Qu.:56     tři čtvrtiny případů maji menší hodnotu
#Max.   :94
#NA's   :4      NA označuje chybějící hodnoty, tedy řádky, kde není žádna informace 

#nakladani s chybejicimi hodnotami
#odstraneni
#nahrazeni nulou
#nahrazeni nejvice pravdepodobnou hodnotou - vice v nekterem z dalsich seminaru

#pokud chceme zobrazit informace jen k jedne promnene, tak musime napsat jmeno datasetu, následně $ (pravý alt + ů(na slovenske klavesnici pravděpodobně o se stříškou))
summary(kandidati_2018$POCHL_PRES)

#symboly v R - tyto znaky nikdy nepouzivejte ve jmenech sloupcu, je take vhodne, aby se nobjeovovaly v datech
# # pro komentare
# ? zisk napovedy napr
?read.csv
# $ oddeleni datasetu a promenne
# % procenta, v nekterých knihovnách slouzi k oddelování casti operace (to se nas bude tykat u stahovani)
# ^ umocneni
# &  ma funkci AND ve formulaci vyberu
# *  nasobeni, interakce v regresi,...
# () obvykle zahrnuje detaily operace (viz napr. otevirani souboru)
# [] urceni nejake casti dat
# {} smycky
# -  odecitani, potreba do kombinace  <-
# + scitani, v tvorbe grafu oddeluje kroky tvorby grafu
# ,  oddeluje jednotlive prvky operaci
# <> vetsi, mensi, obvykle v kombinaci s =
# \ oddelovace v ceste k souborum, umoznuji zapsat nejaky specialni znak, tak aby nemel svou funkci
# / deleno, oddelovace v ceste k souborum
# | funkce OR, potreba pro nektere dalsi formulace
# "" obvykle definuji nejaky znak nebo text
# pro pouziti v nazvech tedy zbyva _ a .


#otevreni excelovych dat
#nejprve je potreba rozsirit zakladni funkce R, protoze nacteni excelovych dat mezi nimi neni

#instalace rozsireni ke cteni excelu
install.packages("readxl")
#po instalaci je potreba rozsireni aktivovat
library(readxl)
#zobrazeni napovedy
?readxl
?read_excel
df <- read_excel("C:\\Users\\petrh\\Documents\\politologie\\vyuka\\datamanagment\\pst4.xlsx")

