I respond to myself.
Using:
show.node.label = TRUE
and looking at the doc for ?nodelabels:
data(bird.orders)
### Some random data to compare piecharts and thermometres:
tr <- rcoal(15)
x <- runif(14, 0, 0.33)
y <- runif(14, 0, 0.33)
z <- runif(14, 0, 0.33)
x <- cbind(x, y, z, 1 - x - y - z)
layout(matrix(1:2, 1, 2))
plot(tr, "c", FALSE, no.margin = TRUE)
nodelabels(pie = x, cex = 1.3)
text(4.5, 15, "Are you \"pie\"...", font = 4, cex = 1.5)
plot(tr, "c", FALSE, no.margin = TRUE)
nodelabels(thermo = x, col = rainbow(4), cex = 1.3)
text(4.5, 15, "... or \"thermo\"?", font = 4, cex = 1.5)
layout(matrix(1))
So, all in all, Ape is great :)
Albert.
On 10/18/06, Jim Lemon <jim at bitwrit.com.au>
wrote:> Albert Vilella wrote:
> > Hi,
> >
> > I've been investigating the ape package for a while, and I was
> > wondering if it is possible to:
> >
> > - display the names of the internal nodes (from a newick tree)
> > - plot a pie-chart on top of each of the internal branches in a
phylogram plot
> >
> I don't know about the first, but if you can specify the coordinates,
> floating.pie (plotrix) will display a pie chart there for you.
>
> Jim
>