有没有办法从ggplot中的多面柱形图中删除空值？

Question

所以我不知道如何在多面图中删除这些空列。我已经尝试过

waterplot<- ggplot(subset(loi, Sample.Type == c("Sample","Control")), aes(x = SampleID, y= PercentWater, fill = ClimbType)) +
         geom_col() +
         facet_wrap(.~Sample.Type)+
  scale_x_discrete(na.translate = FALSE)
  waterplot

和 它并没有摆脱它们。我希望这样对1.可以使图形更美观，并2.可以使我的x轴清晰可见。

Graph I'm talking about