data(archosauria)
ab.gg(data=archosauria, taxa=c("Ankylosauria","Stegosauria"))->thyreophora
library(ggplot2)
ggplot(data=thyreophora, aes(x=tax, y=ma, col=tax))+ylim(252,0)+geom_violin(scale="count")
Run the code above in your browser using DataLab