R 画 violin图

library(ggplot2) #注释：package在使用之前需要调用
Fontsize_defined = 20;#字体大小
results_png_path = file.path(save_path,paste(marker,'-',group,'.tiff'))
tiff(file = results_png_path,bg="transparent")
eval(parse(text = sprintf("p<-ggplot(temp_data, aes(x = %s, y = %s),size=3)",group,marker)))
eval(parse(text = sprintf("p<-p+geom_violin(aes(fill = %s))",group)))
p<-p + geom_jitter(shape=16, position=position_jitter(0.2))
eval(parse(text = sprintf("p<-p + ggtitle('nd1=%.0f,ns1=%.0f,nd2=%.0f,ns2=%.0f,t=%.4f,df=%.4f,p=%.4f') ",Results$nd1,Results$ns1,Results$nd2,Results$ns2,Results$t,Results$df,Results$p)))
p <- p+theme_classic()
p <- p+theme(axis.text.x = element_text(size = Fontsize_defined,color = "black"))+
  theme(axis.text.y = element_text(size = Fontsize_defined,color = "black"))+
  theme(axis.title.y = element_text(size = Fontsize_defined,color = "black"))+
  theme(axis.title.x = element_text(size = Fontsize_defined,color = "black"))+
  theme(axis.line = element_line(size = 1,color = "black"))
p
dev.off（）