View source: R/match.tip.edge.R
match.tip.edge | R Documentation |
Match a vector of tips or tips and nodes with the an edge list from a "phylo"
or "multiPhylo"
.
match.tip.edge(vector, phylo, replace.na, use.parsimony = TRUE)
vector |
a vector of variables (equal to the number of tips or to the number of tips and nodes). |
phylo |
a phylo or multiPhylo object. |
replace.na |
optional, what to replace NAs with. |
use.parsimony |
logical, whether to also colour internal edges parsimoniously ( |
A vector of variables equal to the number of edges in the tree (or a list of vectors if the phylo
input is of class "multiPhylo"
).
Thomas Guillerme
## A random tree
tree <- rtree(20)
## A random vector of two variables for each tips
tip_values <- sample(c("blue", "red"), 20, replace = TRUE)
## Matching the colors (blue and red) to the tips descendants
edge_colors <- match.tip.edge(tip_values, tree, replace.na = "grey")
## Plotting the results
plot(tree, show.tip.label = FALSE, edge.color = edge_colors)
tiplabels(1:20, bg = tip_values)
## Same but without assuming parsimony for the internal nodes
plot(tree, show.tip.label = FALSE,
edge.color = match.tip.edge(tip_values, tree,
use.parsimony = FALSE,
replace.na = "grey"))
## Matching the tips and nodes colors with the edges
node_values <- sample(c("blue", "red"), 19, replace = TRUE)
edge_colors <- match.tip.edge(c(tip_values, node_values), tree)
plot(tree, show.tip.label = FALSE, edge.color = edge_colors)
tiplabels(1:20, bg = tip_values)
nodelabels(1:19, bg = node_values)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.