## 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)
Run the code above in your browser using DataLab