如何从R -ggplot2中的facet_wrap中删除一个facet

Question

我有以下数据集： 这是一个样本

    Date    Site    Flow
    14/10/2014  B1  NA
    28/10/2014  B1  NA
    31/10/2014  B1  0.118433346
    04/11/2014  B1  NA
    10/11/2014  B1  NA
    18/11/2014  B1  NA
    25/11/2014  B1  NA
    18/12/2015  B1  NA
    14/10/2014  B2  NA
    28/10/2014  B2  NA
    31/10/2014  B2  NA
    04/11/2014  B2  NA
    10/11/2014  B2  0.315115017
    18/11/2014  B2  NA
    25/11/2014  B2  0.160140626
    18/12/2015  B2  NA
    14/10/2014  B5  0.324
    28/10/2014  B5  0.2136
    31/10/2014  B5  NA
    04/11/2014  B5  0.5239608
    10/11/2014  B5  0.52866
    18/11/2014  B5  NA
    25/11/2014  B5  3.3144
    18/12/2015  B5  3.2472
    14/10/2014  B7  NA
    28/10/2014  B7  NA
    31/10/2014  B7  NA
    04/11/2014  B7  0.09893448
    10/11/2014  B7  0.26321832
    18/11/2014  B7  NA
    25/11/2014  B7  0.058483968
    18/12/2015  B7  0.213892704

这是我用过的代码：

mydata <- read.csv("FlowlsBar.csv", header = T)
L <- names(mydata) %in% c("B1", "B2", "B5")
O <- mydata[!L]
O$Flow <-as.numeric(O$Flow)
O$Date <- as.POSIXct(as.Date(O$Date, "%d/%m/%Y"))
O$Site <- factor(O$Site, levels=c("B1", "B2", "B5"), labels=c("B1", "B2", "B5"))
I <- ggplot(data=O, aes(x=Date, y=Flow, line=Site, shape=Site)) + 
geom_point() + geom_line() +
labs(title = "Flow in the Barlwyd 2014-2015",
x = "Month 2014/2015",
   y = "Flow(Log 10 L m3s)") +
scale_x_datetime(breaks=date_breaks("1 month"),labels =   date_format("%m"))+
  facet_wrap(~Site, nrow= 1)
r3<- I + coord_trans(y = "log10")   
r4<- r3 + scale_y_continuous(breaks = c(0, 0.1, 1, 2.5), labels = c(0,    0.1, 1, 2.5))
ggdraw(r4)

我得到的图表是

如何从facet_wrap中删除图表的NA部分？也许还有另一种方法可以将子集仅包含我需要的站点因子吗？

提前谢谢你， 快乐的帽子思考！