r - 向 ggtree 图添加图例

Question

我正在使用 R 包 ggtree 在 R 中绘制系统发育树。

我已经成功制作了我感兴趣的系统发育树，但是，我很难为我的人物添加“图例”。

我已经尝试了这篇文章中的建议Add legend into ggtree (ggplot) R但它没有用。我没有找到其他人。

你有什么建议吗？

这是我正在运行的命令：

 plot<-ggtree(new.tree,layout=phylo_method)+geom_nodepoint(size=c(NA,size_node),colour=c(NA,col_node),pch=8,na.rm =TRUE)+
  geom_tiplab(align=FALSE, linetype='dashed', linesize=.3,size=2)+
  geom_tippoint(color=raxml_col, size=2, show.legend = TRUE)+
  theme(legend.position="right")