# Violin-Plot in R
# Der Code sollte ohne weiteres in R laufen, zumindest, wenn die R-Version nicht zu alt ist
# und man alle Packages besitzt.

# 1. Mit pkg 'Vioplot' ----

require(vioplot)
vioplot(mtcars$mpg, mtcars$qsec, names = c("mpg", "qsec"))


# 2. Mit pkg 'ggplot2' ----

require(ggplot2)
# Plot definieren
vPlot <- ggplot(mtcars, aes(x = as.factor(cyl), y = mpg, fill = as.factor(cyl)))

# Violin-Plot anzeigen lassen
vPlot + geom_violin()

# Horizontaler Violin-Plot
vPlot + geom_violin() + coord_flip()

# Mit anderen Farben
vPlot + geom_violin() + scale_fill_manual(values = c("#002255", "#FF8800", "#00EE00"))

# Mit Median/Mean
vPlot + geom_violin() +  stat_summary(fun.y = median, geom = "point", shape = 22, size = 2, fill = "white")
vPlot + geom_violin() +  stat_summary(fun.y = mean, geom = "point", size=2, fill = "black")

# Mit integriertem Boxplot
vPlot + geom_violin() +  geom_boxplot(width = .05, fill = "white") +
        scale_fill_brewer(palette = "Reds")