Re-rooting a tree along all edges

This morning I received the following message:

“I am trying to write a program that reroots a phylogenetic tree at every edge(branch) of the tree and saves each rerooted tree. I am using reroot under phytools. When I run for a single specified branch I am able to get a rerooted tree but when I run for all branches in a tree, I am getting… (Ed. an error).”

I'm not sure the user ran into difficulties, but the following is a simple function to re-root a tree along all edges that uses phytools::reroot internally:

reroot.all<-function(tree,unroot=TRUE){
    if(unroot) tree<-unroot(tree)
    if(is.null(tree$edge.length)){
        edge.lengths<-FALSE
        tree$edge.length<-rep(1,nrow(tree$edge))
    } else edge.lengths<-TRUE
    trees<-vector(mode="list",length=nrow(tree$edge))
    for(i in 1:nrow(tree$edge)){
        trees[[i]]<-reroot(tree,tree$edge[i,2],
            0.5*tree$edge.length[i])
        if(!edge.lengths) trees[[i]]$edge.length<-NULL
    }
    class(trees)<-"multiPhylo"
    trees
}

Let's try it:

library(phytools)

## Loading required package: ape

## Loading required package: maps

tree<-rtree(n=26,tip.label=LETTERS)
trees<-reroot.all(tree)
trees

## 49 phylogenetic trees

par(mfrow=c(7,7))
plotTree(trees,fsize=0.5,lwd=1)

It works!

Some of the updates in the new CRAN version of phytools (0.6-99)

I recently put a new version of phytools on CRAN (phytools 0.6-99).

The last CRAN phytools release was 28 September 2018, so naturally there were quite a few updates.

The following is a non-comprehensive list:

1. An update to the function dotTree to include column labels.

2. A totally new function fitmultiMk to fit a multi-rate Mk model to discrete character data on the tree (here).

3. The MCCR test for Pybus & Harvey's γ statistic when taxon sampling is incomplete (1, 2). This used to be in Dan Rabosky's package laser, but since laser is no longer available I thought I'd implement it in phytools.

4. Another totally new function, fitpolyMk, to fit an Mk model to discrete character data with polymorphism.

5. A new S3 plot method for fitpolyMk.

6. A new function for phylogenetic imputation with multivariate continuous trait data (phylo.impute).

7. An update to phylo.to.map to permit more than one observation per tip in the tree. (Also see: 1, 2, 3).

8. A simple user-requested update to fancyTree for type="extinction" (here).

9. A small fix to the function plotTree.wBars for fan-style trees.

10. Various updates to the phytools function mcmcMk for Bayesian MCMC analysis of the Mk model of evolution for discete character traits.

11. A new multi2di registered S3 method for the "simmap" object class (as well as di2multi and multi2di methods for other object classes too - such as "contMap" and "densityMap" object: here).

12. Several new S3 methods for the "evol.rate.mcmc" object class.

13. Updates to the 'phylogenetic scatterplot matrix' method of fancyTree (and also separation of the method to its own function: phyloScattergram).

14. Some useful updates & fixes to the function geo.legend, as well as an entirely new function, geo.palette. (Also here.)

15. Various updates to ltt95.

16. Finally, a small but non-trivial update to cophylo to permit co-phylogenetic plotting when one or both trees have duplicate tip labels.

For all updates, check out a complete list of commits on the phytools GitHub page. This list is long & include lots of things that haven't been mentioned above, such as new object classes and methods.

Here's an example of plotting species distributions with a "phylo.to.map" object:

obj

## Object of class "phylo.to.map" containing:
## 
## (1) A phylogenetic tree with 8 tips and 7 internal nodes.
## 
## (2) A geographic map with range:
##      -33.75N, 5.27N
##      -74.01W, -29.36W.
## 
## (3) A table containing 65 geographic coordinates (may include
##     more than one set per species).
## 
## If optimized, tree nodes have been rotated to maximize alignment
## with the map when the tree is plotted in a rightwards direction.

plot(obj,direction="rightwards",colors=sapply(cols,
    make.transparent,0.4),
    pts=FALSE,ftype="off",cex.points=c(0,0),
    ftype="off",lwd=c(3,1))
for(i in 1:Ntip(obj$tree)){
    ii<-which(rownames(obj$coords)==obj$tree$tip.label[i])
    polygon(obj$coords[ii,2:1],
        col=make.transparent(cols[obj$tree$tip.label[i]],0.8),
        border="darkgrey")
}