library(rotl)
taxa<-tnrs_match_names(names= c("Staphylococcus epidermidis","Acinetobacter baumannii","Streptococcus pneumoniae","Streptococcus agalactiae","Vibrio cholerae","Staphylococcus aureus","Lactobacillus reuteri","Escherichia coli"))
tree <- tol_induced_subtree(ott_ids = ott_id(taxa))
plot(tree, cex = .8, label.offset = .1, no.margin = TRUE)
