r - 在 R 中为系统发育树中的每个进化枝着色

Question

这是我的树

嗨，我想知道是否有人知道一种更好的方法来为附着的树的每个进化枝的尖端或边缘着色。

((MusMusculus:0.00,((BosTaurus:0.00,OryctolagusCuniculus:0.00):22.50,(LamaGlama:0.00(HomoSapiens:0.00,PansPansicus:0.00):23.00):41.50):75.33):103.00);

现在，我正在以一种不通用的方式提取提示标签，然后使用以下语法对它们进行着色：

tiplabels(tip_labels, bg = c('purple','blue','blue','green','red','red'), cex=0.5, fg="transparent")

我想找到一种更通用的方法，如果我放入一棵不同的树，进化枝将被标记为不同的颜色。