library("ggforce")
library("devtools")
library("easyGgplot2")
library("ggplot2")
library("ggprism")
library("readxl") 
df1<-read_excel("C:/Users/roble/OneDrive/UCR/GGPLOT2-Violin plots/Violin_plots_ancylostomatidae.xlsx")
ggplot(data=df1, mapping=aes(x=Genetic_Marker, y=Identity_Score, colour= Genetic_Marker))+
  geom_violin(alpha = 0.2) +
  geom_sina(override.aes=list(alpha = 0.5))+
  xlab("Genetic_Marker")+ ylab("Identity_Score")+ 
  stat_summary(fun=mean, geom="point", size=2, color="black")+ 
  stat_summary(fun.data="mean_sdl", mult=1,geom="pointrange", width=0.2,color="black")+
  scale_x_discrete(limits=c("18S", "ITS-1", "ITS-2", "Cox1", "12S", "16S"))