0

我正在尝试从一个图中删除 x 轴（左侧的树应该没有 x 轴标签、刻度、线等），同时将 x 轴保留在右侧的图上（0- 60，刻度，标签：“G 的数量”）。我搜索了几乎所有的 ggtree 博客、ggtree github、ggplot2 帮助、ggtree 帮助等，但均未成功。

图片显示了我的情节在没有任何提示标签或图例的情况下的样子：我的情节没有提示标签或图例

其他人正在这里寻找相同问题的答案：https ://groups.google.com/g/bioc-ggtree/c/CPb1C955PHo 。

p <- ggtree(phylo) +  geom_tiplab(offset=1, hjust=.8, size=2.5) + 
     geom_facet(panel="GS", data=res3, geom = ggstance::geom_barh, 
        mapping = aes(x= Freq,group= as.factor(res3$CG),fill= GS), 
        color='grey90', lwd=.3, stat="identity") +
    theme_tree2(legend.position=c(.85, .45)) +
    scale_x_continuous(breaks = c(0,5,10,15,20,30,40,50,60)) + 
    theme(strip.background = element_blank(), strip.text = element_blank()) +
    scale_fill_manual(name = "GS", values=c("#0072B2", "#D55E00", "#E69F00", "#F0E442", "#999999", "#009E73"))

p
4

1 回答 1

0

我想到了。

phylop <- ggtree(phylo) +  geom_tiplab(offset=0.1, hjust=0, size=2.5) + xlim_tree(5.3)
bars <-  ggplot(res3, aes(y= Freq,x= as.factor(CG))) + geom_col(aes(fill=GS)) + 
    # geom_text(aes(label=CG, y= Freq)) +
    coord_flip() + 
    scale_y_continuous(breaks = c(0,1,2,3,4,5,10,15,20,30,40,50,60)) + 
    theme_tree2() + theme(legend.position=c(.70, .65)) +
    scale_fill_manual(name = "GS", values=c("#0072B2", "#D55E00", "#E69F00", "#F0E442", "#999999", "#009E73"))

cowplot::plot_grid(phylop, bars, ncol=2)
于 2021-03-11T15:59:08.647 回答