具有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 (将#修改为@）