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

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

# Vytvoření boxplotů
boxplotALL <- boxplot(boxplot_data, col = "lightblue", main = "Boxploty", xlab = "Jedinci", ylab = "Hodnoty", names = MorfoData_transf$Taxon_id, las = 2 )
boxplotCP <- boxplot(as.vector(boxplot_data[,1:7]), as.vector(boxplot_data[,8:14]), boxplot_data[,15], boxplot_data[,16], boxplot_data[,17], boxplot_data[,18],boxplot_data[,19],boxplot_data[,20],boxplot_data[,21],boxplot_data[,22],boxplot_data[,23],boxplot_data[,24], names = c("CAN", "PAL", "X21", "X22", "X23", "X24", "X25","X26", "X27", "X28", "X29", "X30"), las = 2)
boxplotCPX <- boxplot(as.vector(boxplot_data[,1:7]), as.vector(boxplot_data[,15:24]), as.vector(boxplot_data[,8:14]),main = "Delka listu", names = c("CAN", "X", "PAL"), last = 2)


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

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

# Violin + body
ggplot(data=MorfoData_transf, aes(x=Taxon, y=Delka_list)) + 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=Delka_list)) + 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=Delka_list)) + geom_boxplot(trim=FALSE, adjust=0.4) + geom_dotplot(binaxis='y', stackdir='center', dotsize=1) + scale_x_discrete(limits=c("CAN", "X", "PAL"))