nematocera<-c(2,2,10,0,0,18,27)
brachycera<-c(10,0,0,3,4,2,103)
diptera<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103)
lepidoptera<-c(1,4,4,71,86)
amphiesmenoptera<-c(1,4,4,17,71,86)
diplep<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86)
coleoptera<-c(102,36,5,125,54,119)
cucujiformia<-c(102,5,125,119)
diplepcol<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119)
formicidae<-c(1,2,9,22,18,5,2,6)
apoidea<-c(0,0,1,0,6,0,21,10,5,11)
aculeata<-c(1,2,0,0,1,0,9,22,6,0,21,18,10,5,5,11,2,6)
hymenoptera<-c(1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38)
holometabola<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38)
heteroptera<-c(31,183,42,41)
hemiptera<-c(672,31,183,42,45,41,28)
paraneoptera<-c(672,31,91,183,42,45,41,2,28)
nonholoinsecta<-c(48,9,103,52,672,31,91,183,42,45,41,2,28)
insecta<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38,48,9,103,52,672,31,91,183,42,45,41,2,28)
hexapoda<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38,48,9,103,52,672,31,91,183,42,45,41,2,28,4)
crustacea<-c(4,5,18)
pancrustacea<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38,48,9,103,52,672,31,91,183,42,45,41,2,28,4,4,5,18)
mandibulata<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38,48,9,103,52,672,31,91,183,42,45,41,2,28,4,4,5,18,114)
acari<-c(6,412,5)
araneae<-c(31,70,141,85)
arachnida<-c(70,6,31,70,412,141,85,5)
arthropoda<-c(2,2,10,0,10,0,0,0,3,4,2,18,27,103,1,4,4,17,71,86,102,36,5,125,54,119,1,2,0,0,11,1,0,22,9,22,56,6,0,21,18,10,5,5,11,145,22,2,6,38,48,9,103,52,672,31,91,183,42,45,41,2,28,4,4,5,18,114,70,6,31,70,412,141,85,5)
outgroups<-c(1,0,7,0,8,2,0,1,0,4,1,316,12)
bnames<-c('nematocera','brachycera','diptera','lepidoptera','amphiesmenoptera','diplep','coleoptera','cucujiformia','diplepcol','formicidae','apoidea','aculeata','hymenoptera','holometabola','heteroptera','hemiptera','paraneoptera','nonholoinsecta','insecta','hexapoda','crustacea','pancrustacea','mandibulata','acari','araneae','arachnida','arthropoda','outgroups','all')
pdf("IPR001584.pdf")
par(mar=c(9,3,1,1))
boxplot(nematocera,brachycera,diptera,lepidoptera,amphiesmenoptera,diplep,coleoptera,cucujiformia,diplepcol,formicidae,apoidea,aculeata,hymenoptera,holometabola,heteroptera,hemiptera,paraneoptera,nonholoinsecta,insecta,hexapoda,crustacea,pancrustacea,mandibulata,acari,araneae,arachnida,arthropoda,outgroups,all, names=bnames, varwidth=TRUE, pch="+", las=2, main="IPR001584")
dev.off()