Violin plots

# install.packages("vioplot") 
library(vioplot)
sets <- read.table("set1_set2.csv", header = TRUE) 
vioplot(sets[,1], sets[,2], names = c("one", "two"), col = "gold")
title("Violin plot", font.main = 1)