Oops. I just realized that will plot the colors in reverse - with the
most recent eras in the center. This should be fixed:
plotTree(tree)
obj<-geo.legend()
r<-max(obj$leg[,1])-obj$leg[,2]
plotTree(tree,type="fan",fsize=0.6,lwd=1)
for(i in 1:nrow(obj$leg)){
If you're comfortable with solid colors, rather than semi-transparent as
in geo.legend, you could do something like this:
plotTree(tree)
obj<-geo.legend() ## this is just to get the colors
plotTree(tree,type="fan",lwd=1)
for(i in nrow(obj$leg):1){
Hi all,
Does anyone know of a function to plot a geologic time scale as a series of
concentric circles on a circularly plotted tree?
As far as I can tell there are three available functions that can do this on a
regular cladogram:
axisGeo (phyloch)
geoscale.Phylo (strap)
geo.legend (phytools)
