如何解决具有phyloseq类的不同条形图中的列大小和比例匹配
我正在使用R中的phyloseq类的bar_plot函数制作条形图。我将2个图放在一起。如何在两个图中使y轴和列大小相同? 这是我编写的代码。这是它制作的图形:https://imgur.com/a/qgil94P 最后,我想为每个栏添加一些信息,如何手动添加呢?
barplot.bef.inf.b <- plot_bar(bef.inf.b,fill = "phylum") +
facet_wrap(~Days_after_infection,scales="free_x",ncol=2,drop=TRUE) +
geom_bar(aes(color=phylum,fill=phylum),stat="identity",position="stack") +
labs(title="Bacterial composition before infection",x="",y="Relative abundance") +
scale_y_continuous(expand=c(0,0)) +
theme(axis.text.x=element_blank()) +
scale_color_brewer(palette = "Paired" ) +
scale_fill_brewer(palette = "Paired" )
barplot.after.inf.b <- plot_bar(after.inf.b,ncol=6,drop=TRUE) +
geom_bar(aes(color=phylum,position="stack") +
theme(legend.position = "none") +
labs(title="Bacterial composition after infection",0)) +
theme(axis.text.x=element_blank()) +
scale_color_brewer(palette = "Paired" ) +
scale_fill_brewer(palette = "Paired" )
barplot.bef.after.b <-arrangeGrob(barplot.bef.inf.b,barplot.after.inf.b,nrow=2)
ggsave("BefAfterBactPhylum.png",barplot.bef.after.b,height=15,width=20,unit="cm")
谢谢您的帮助
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。