如何解决如何在ggtree
我知道我可以通过如下组合尖端标签来设置尖端颜色:
library(ggtree)
tree<-read.tree(text="(A,(B,C));"
dd <-data.frame(taxa=c("A","B","C"),place=c("s1","s1","s2"))
p<-ggtree(tree)
p<-p %<+% dd +geom_tiplab(aes(color=place))
p
以便根据位置组应用随机的颜色集
但是,如何指定自己的颜色? (例如,我要用黑色的s1和用红色的s2)
解决方法
您可以通过在树和树枝上使用groupOTU来设置笔尖颜色。
tree<-read.tree(text="(A,(B,C));")
branches <- list(A=1,B=2,C=3)
tree <- groupOTU(tree,branches)
p <- ggtree(tree) + geom_tiplab(aes(color=group))+
scale_color_manual(values=c(A = "#E7B800",B= "#FC4E07",C = "darkgreen"))
p
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。