Look at the R script related to this article. rotl: an R package to interact with the Open Tree of Life data <
install.packages("rotl")
library(rotl)
studies <- studies_find_studies(property = "ot:focalCladeOTTTaxonName",
value = "Caesalpinieae", exact = TRUE)
tree <- get_study_tree(study_id = studies[["study_ids"]][1],
tree_id = strsplit(studies[["tree_ids"]],", ")[[1]][1])
# Example 2
cat_studies <- studies_find_studies(property = "ot:focalCladeOTTTaxonName",
value = "Felidae", exact = TRUE)
cat_tree <- get_study_tree(study_id = cat_studies[["study_ids"]][1],
tree_id = cat_studies[["tree_ids"]][1])
cat_tree
##
## Phylogenetic tree with 38 tips and 37 internal nodes.
##
## Tip labels:
## Neofelis_nebulosa, Panthera_tigris, Panthera_uncia, Panthera_pardus, ...
##
## Rooted; includes branch lengths.