R 将图例添加到树形图中

我正在使用R包ggtree来绘制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")

---

plot您没有任何映射到可用于构建图例的美学比例的对象。你试过
mapping=aes（color=col\u node）
而不是
color=c（NA，col\u node）
在
geom\u nodepoint
中吗？我实际上想在geom\u tipppoint中使用的颜色上添加一个图例。我尝试了你关于geom_tipppoint的建议，但我得到了以下错误：“错误：美学必须是长度1或与数据（121）：颜色相同”