gghalves
ggplot() + geom_half_violin(data = df_final_all[df_final_all$Duration == "Day 1",],aes(x = SubCluster,y = DEG_num),colour = "white",fill = "#db6968",side = "l", nudge=0, size=0.1) + geom_half_violin(data = df_final_all[df_final_all$Duration == "Day 3",],aes(x = SubCluster,y = DEG_num),colour = "white",fill = "#4d97cd",side = "r", nudge=0, size=0.1)
