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()