############# GRAFICKE ZOBRAZENI V R ############################

# preddefinovane parametry prikazu plot
# plot(x,y=NULL,type="p",xlim=NULL,ylim=NULL,main=NULL,sub=NULL, xlab=NULL,ylab=NULL,axes=T,frame.plot=axes,…)

windows()                                                        # otevreni grafickeho okna (neni nutne)
plot(rep(0.5,26), pch = 0:25)                                    # typy bodů, parametr pch
plot(rep(0.5,26), pch = 0:25, axes = F, ann = F, frame.plot = T) # chceme ramecek, nechceme popisy grafu a os
dev.off()                                                        # zavreni aktualniho grafickeho okna - note: vymaze i grafy na karte plots
# graphics.off()                                                 # zavreni vsech oken - note: vymaze i grafy na karte plots

# body 21 az 25 lze vybarvovat, prikaz bg
plot(rep(0.5,5), pch = 21:25, col = "steelblue4", bg = "slategray3")

# moznost ulozeni grafu - via kod
png(filename="05_graf_1.png")
plot(rep(0.5,5), pch = 21:25, col = "steelblue4", bg = "slategray3")
dev.off()

pdf("05_graf_2.pdf")
plot(rep(0.5,5), pch = 21:25, col = "steelblue4", bg = "slategray3")
dev.off()

jpeg("05_graf_3.jpeg")
plot(rep(0.5,5), pch = 21:25, col = "steelblue4", bg = "slategray3")
dev.off()

# ukladani grafu lze i pomoci exportu

############# plot ##############################################

windows(10,5)                 # velikost grafickeho okna 10x3
par(mar = c(4,4,4,4), family = "serif")
plot(rep(0.5,26), pch = 0:25, cex = 3 ,xlab = "osa x", ylab = "osa y", main = "Název grafu")
text(15, 0.6, labels = "Text, který chceme mít na souřadnicích x = 15 a y = 0.6", col = "tomato")
abline(h = seq(0.3,0.4,0.01), col=1:8, lty=1:5, lwd=0.5:6)


## POSTUPNE 
windows(width=10,height=5)                  # velikost grafickeho okna 10x5
plot(rep(0.5,26), pch = 0:25)               # pozice bodu 26x 0.5 (souradnice osy y v tomto případě) a pch - typ bodu
plot(rep(0.5,26), pch = 0:25, cex = 3)      # velikost bodu (cex)
plot(rep(0.5,26), pch = 0:25, cex = 3 ,xlab = "osa x", ylab = "osa y", main = "Název grafu") # popsání os a název grafu
# chceme zmenit typ pisma - nastavuje se pomoci funkce par 
# note: funkce par nastavuje obecne parametry grafickeho vystupu 
windows(10,5,rescale=c("fixed"))            # parametr rescale - pevne nastavení grafické oblasti
par(family = "serif")
plot(rep(0.5,26), pch = 0:25, cex = 3 ,xlab = "osa x", ylab = "osa y", main = "Název grafu") 
# chceme zmenit okraje grafu (! ne okna !)
windows(10,5)  
par(mar = c(7,7,7,7), family = "serif")
plot(rep(0.5,26), pch = 0:25, cex = 3 ,xlab = "osa x", ylab = "osa y", main = "Název grafu") 
# do grafu chceme na zname souradnice umistit text (note souradnice x urcuje STRED textu)
text(15, 0.6, labels = "Text, který chceme mít na souřadnicích x = 15 a y = 0.6", col = "tomato")
# do grafu chceme vlozit caru na danych souradnicich (v tomto pripade zvolena sekvence hodnot od 0.3 do 0.4 po kroku 0.01 - resp. 11 hodnot)
# argument col urcuje barvu danych car (v tomto pripade zadany zakladni barvy - cisla)
# argument lty urcuje typ cary
# argument lwd urcuje tloustku cary
abline(h = seq(0.3,0.4,0.01), col=1:8, lty=1:5, lwd=0.5:6)
# zavreni vsech grafickych oken 
graphics.off() 

############# Grafické palety ###################################

windows(width=10, height=7)
par(mfrow=c(2,3))        # argument mfrow uruje kolik grafu bude v okne - v tomto pripade bude okno rozdeleno na dva radky a sest sloupcu tedy 6 grafu
pie(rep(1,10),col=rainbow(10),lab=1:10, main = "rainbow")                   # prvni argument (v tomto pripade desetkrat cislo 1) urcuje kolik casti v kolacovem grafu bude
# prehled preddefinovanych palet barev
pie(rep(1,10),col=heat.colors(10),lab=1:10, main = "heat.colors")
pie(rep(1,10),col=topo.colors(10),lab=1:10, main = "topo.colors")
pie(rep(1,10),col=terrain.colors(10),lab=1:10, main = "terrain.colors")
pie(rep(1,10),col=cm.colors(10),lab=1:10, main = "cm.colors")
pie(rep(1,10),col=gray(seq(0.1,1,0.1)),lab=seq(0.1,1,0.1), main = "gray")

# NOTE: parametr clockwise

windows()
par(mfrow = c(1,2))
pie(rep(1,10),col=rainbow(10),lab=1:10, main = "rainbow - clockwise FALSE (default)")
pie(rep(1,10),col=rainbow(10),lab=1:10, main = "rainbow - clockwise TRUE", clockwise = TRUE)
dev.off()
# chceme prehled rainbow barev, nechceme popisy os a nechceme ohranicene casti grafu:
windows()
pie(rep(1, 200), labels = "", col = rainbow(100), border = NA)
dev.off()

# colors - mozno zadavat i hex kodem, pr.:
# https://htmlcolorcodes.com/color-chart/material-design-color-chart/ (pozor u jmen, primarne pro html)

windows(13,5)
par(mfrow=c(1,4))  
pie(1, labels = "", col = "dodgerblue", border = NA, main = "Barva = dodgerblue")    
pie(2, labels = "", col = "#3498db", border = NA, main = " Hex - kod: #3498db")
pie(3, labels = "", col = "#3498DB", border = NA, main = "Hey - kod: #3498DB")
pie(4, labels = "", col = rgb(red = 52, green = 152, 
                              blue = 219, maxColorValue = 255), border = NA, main = "RGB - (max 255)")
dev.off()
# NOTE: vektor barev lze zadavat libovolne - lze kombinovat typy zapisu (avsak nedoporucuje se)
windows(13,5)
par(mfrow=c(1,4)) 
pie(rep(1,3),col =c("seagreen3", "turquoise4", "slateblue4") ,lab=1:3, border = F)
pie(rep(1,3),col =c("#58d68d", "#138d75", "#4527a0") ,lab=1:3, border = F)
pie(rep(1,3),col = rgb(red = c(88,19,69), green = c(214,141,39), blue = c(141,117,160), maxColorValue = 255),
    lab=1:3, border = F)
pie(rep(1,3),col =c("seagreen3", "#117a65", "#4527a0") ,lab=1:3, border = F)
# funkce rg - v podstate prevod na hex kod, tzn.:
rgb(69,39,160, maxColorValue =  255)
dev.off()

###### Domaci ukol 6 ######
## A) Vytvořte do samostatného okna graf všech typů bodů (pch) tak, aby nebyl zobrazen rámeček grafu, osy (ani popis os)
# a ani popis grafu – tzn. budou zobrazeny pouze body. Barvu bodů vytvořte pomocí implementovaného vektoru rainbow(). 
# Graf uložte jako .pdf soubor.
## B) Zobrazte vlastní koláčový graf (obdobně jako na straně: Grafické palety) a to tak, že zvolíte vlastní barvy,
# vypnete rámeček (border) grafu a zvolíte vlastní název. Labels grafu, bude prvních 10 písmen z implementovaného
# vektoru LETTERS.
# Graf uložte jako .jpg soubor.