data(MyHiers)
TreeData <- MakeTreeData(MyHiers)
Tree <- MakeHierarchyTree(MyHiers, includeNodeLabels=TRUE)
labels <- NodeLabelList(MyHiers, "all")
plot(Tree, show.node.label=TRUE)
plot(Tree, "c", show.node.label=TRUE, adj=0.5, font=3, edge.color="gray",
tip.color=rainbow(10))
Run the code above in your browser using DataLab