条形图在导出/显示时有许多值缺少条形图

Question

我有一个超过3000条的堆积条形图。当我在RStudio中显示它时，图中有周期性的间隙，应该包含值。我还得到警告消息：“position_stack需要恒定宽度：输出可能不正确”。 当我使用R dev页面（控制多个设备）中的x11（）并将绘图部分拉伸到2个监视器时，我验证了值。

据我所知，它是一个大型数据集，条形图在如此大的尺寸下描述性较差。我打算使用较小规模的堆积条形图作为每个基因突变的分类计数，并希望获得大文件的可扩展版本。

这里有一个关于堆积条形图的数据框架的概念，根据Mutation着色：

Gene    Mutation    value
ABC     MUT1        1
ZYX     MUT1        1
DEF     MUT1        0
ABC     MUT2        1
ZYX     MUT2        0
DEF     MUT2        0

作为临时修复，我为geom_bar（）创建了两个选项。较大的宽度会产生一个新警告：“position_stack需要非重叠的x间隔”，但输出条图不显示间隙。

barplot<- ggplot(bar.df2, aes(x = Gene, y = value, fill = as.character(Mutation)))+
  # For input file with very many genes, use the following:
  #geom_bar(stat = "identity", width = 1.5) + 

  # For input file with <= 150 genes, use the following:
  geom_bar(stat = "identity") +

  coord_flip() + 
  scale_fill_manual(breaks = mutvec, values = colvec2)+ 
  theme(axis.title.y = element_blank(), axis.text.y = element_blank(), 
        axis.ticks.y = element_blank(), plot.margin = unit(c(0.5, 0.5, 0.5, -0.5), "lines")) +
  xlim(rev(levels(bar.df2$Gene))) +
  guides(fill=FALSE)

# This then goes into ggplotGrob() and grid.arrange 
# with a heatmap which is the main plot

这个堆积条形图是否有更好的方法可以小规模显示所有条形图？