r - 删除堆积条形图中的空条

Question

您好，我正在尝试删除堆叠条形图中显示的空条。我已经创建了一个删除零值的新数据框，但它继续绘制黑线。这是代码：

OTU.melt = melt(SHB.OTU.stack_merge.1000, id = c("type"))

OTUmelt_reorder <- OTU.melt %>% mutate(type = fct_relevel(type, "A", "B", "C", "E", "F", "G", "D", "H"))

OTUmelt_reorder.no0 <- OTUmelt_reorder %>% filter(value != 0)


OTU.melt.x = ggplot(OTUmelt_reorder.no0, aes(x = type, fill = variable, y = value)) +
  geom_bar(stat = "identity", colour = "black") +

  theme(axis.text.x = element_text(angle = 90, size = 14, colour = "black", vjust = 0.5, hjust = 1, face= "bold"), 
        axis.title.y = element_text(size = 12, face = "bold"), legend.title = element_text(size = 16, face = "bold"), 
        legend.text = element_text(size = 12, face = "bold", colour = "black"), 
        axis.text.y = element_text(colour = "black", size = 12, face = "bold")) + 
  labs(x = "", y= "# Sequences", fill = "Family", 
       caption = "A = nest exterior surface
     B = 5cm beneath nest exterior
     C = egg chamber - top 
     E = egg chamber - center
     F = egg chamber - bottom
     G = egg surface
     D = surrounding water
H = nest dripline")

谢谢

标签： r