# Načtení knihovny
install.packages("ggplot2")
library(ggplot2)

# Příprava dat pro vykreslení boxplotů
boxplot_data <- t(MorfoData_transf[, -1:-4]) # Transponování dat a odstranění prvního sloupce s jmény jedinců

# Vytvoření boxplotů
boxplotALL <- boxplot(boxplot_data, col = "lightblue", main = "Pruduchy", xlab = "Jedinci", ylab = "Hodnoty", names = MorfoData_transf$Kod, las = 2 )
boxplotCP <- boxplot(as.vector(boxplot_data[,1:5]), as.vector(boxplot_data[,6:10]), boxplot_data[,11], boxplot_data[,12], boxplot_data[,13], boxplot_data[,14],boxplot_data[,15],boxplot_data[,16],boxplot_data[,17],boxplot_data[,18],boxplot_data[,19],boxplot_data[,20], names = c("CAN", "PAL", "X21", "X22", "X23", "X24", "X25","X26", "X27", "X28", "X29", "X30"), las = 2)
boxplotCPX <- boxplot(as.vector(boxplot_data[,1:5]), as.vector(boxplot_data[,11:20]), as.vector(boxplot_data[,6:10]),main = "Pruduchy", names = c("CAN", "X", "PAL"), last = 2)



##boxploty po skupinách - jiný přístup (po krocích)
# Nacteni skupin
Skupina_CAN <- boxplot_data[1:10, 1:5] # Vybrání řádků 1-5 a sloupců 3-12
Skupina_PAL <- boxplot_data[1:10, 6:10] # Vybrání řádků 6-10 a sloupců 3-12
Skupina_X <- boxplot_data[1:10, 11:20] # Vybrání řádků 11-20 a sloupců 3-12

# Příprava dat pro boxplot
CAN <- as.vector(Skupina_CAN)
PAL <- as.vector(Skupina_PAL)
X <- as.vector(Skupina_X)

boxplotSKUP <- boxplot(CAN, X, PAL, col = "lightblue", main = "Boxploty", xlab = "Skupina", ylab = "Hodnoty")
boxplotSKUP <- boxplot(CAN, X, PAL, col = "lightblue", main = "Boxploty", xlab = "Skupina", ylab = "Hodnoty", names = c("CAN", "X", "PAL"))


##Jiný typ grafu
# Violin
ggplot(data=MorfoData_transf, aes(x=Taxon, y=PR_prumer)) + geom_violin(trim=FALSE, adjust=0.4)

# Body
ggplot(data=MorfoData_transf, aes(x=Taxon, y=PR_prumer)) + geom_dotplot(binaxis='y', stackdir='center',position= "dodge")

# Violin + body
ggplot(data=MorfoData_transf, aes(x=Taxon, y=PR_prumer)) + geom_violin(trim=FALSE, adjust=0.4) + geom_dotplot(binaxis='y', stackdir='center', dotsize=1)

# Violin + body + změna poradi
ggplot(data=MorfoData_transf, aes(x=Taxon, y=PR_prumer)) + geom_violin(trim=FALSE, adjust=0.4) + geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + scale_x_discrete(limits=c("CAN", "X", "PAL"))

# boxplot + body + změna poradi
ggplot(data=MorfoData_transf, aes(x=Taxon, y=PR_prumer)) + geom_boxplot(trim=FALSE, adjust=0.4) + geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + scale_x_discrete(limits=c("CAN", "X", "PAL"))