问题描述
我想结合ggtree生成的p和基于dat的直方图。系统发育树和直方图都有相同的条目,但是我观察到的唯一一件事是没有任何文本或直方图的系统发育树。我不明白为什么树和直方图不结合。
library(ggtree)
library(ggplot2)
tree <- read.tree("mammal2.nh")
#My newick file "mammal2.nh" is :
#(((((((((((((((((((((((((Monodelphis domestica)Monodelphis)Didelphinae)Didelphidae)Didelphimorphia)Metatheria,(((((((((((Mus musculus)Mus)Mus)Murinae)Muridae)Muroidea)Myomorpha,(((((Marmota marmota)Marmota)Marmotini)Xerinae)Sciuridae)Sciuromorpha)Rodentia)Glires)Euarchontoglires)Boreoeutheria)Eutheria)Theria)Mammalia)Amniota,((((((((Xenopus laevis)Xenopus)Xenopus)Xenopodinae)Pipidae)Pipoidea)Anura)Batrachia)Amphibia)Tetrapoda)Dipnotetrapodomorpha)Sarcopterygii)Euteleostomi)Teleostomi)Gnathostomata)Vertebrata)Craniata)Chordata)Deuterostomia)Bilateria)EuMetazoa)Metazoa)Opisthokonta)Eukaryota)cellular_organisms);
p<- ggtree(tree,branch.length='none')
Name = list('Marmota Marmota','Monodelphis domestica','Mus musculus','Xenopus laevis')
pcnt = list(5,20,6,9)
dat <- do.call(rbind,Map(data.frame,Name=Name,pcnt=pcnt))
p2 <- geom_facet(p,panel = 'aa',data=dat,geom=ggstance::geom_histogramh(),aes(x=pcnt,y=Name),stat="identity"
)
p2
这就是我最终想要的样子。面板“树”和“特征”。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)