R绘图中的分面记录

library(ggplot2)

a4 = read.csv("C:/Users/jszx/Desktop/plot_data_20210524/noncoding_case.csv", header=T, na.strings=c("NA"))
a4method , levels=c("Fusang","Iqtree","Raxml"))
p4 <- ggplot(a4, aes(method,rf_distance,fill=method)) + geom_violin() + facet_wrap(~taxa)
p4