Удаление пустых столбцов в столбчатой ​​диаграмме

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")

Спасибо