在ggplot2中的facet_grid（）中定制scale_y_continuous（）

Question

我希望在背景网格中添加一条额外的白线和一个额外的刻度线，但只有在 Low Tide 的方面，是否有可能？

我想我可以在 Low Tide 中的scale_y_continuous()命令中添加 break （在 y = 10 ） >或类似的东西（请参阅下面的代码）。

require(ggplot2)
df <- data.frame(cyl = mtcars[,2])
df$Tide  <- ifelse(df$cyl > 4, c('High Tide'), c('Low Tide'))
c <- ggplot(df, aes(factor(cyl)))
c + geom_bar(fill="white", colour="darkgreen", alpha=0.5) +
       facet_grid(. ~ Tide, scales = "free", space = "free") +
       scale_y_continuous(breaks=c(4, 6, 8),
          labels=c("Minimal", "Mild", "Moderate")) +
       scale_x_discrete(breaks=c(6,8,4),
          labels=c("East Coast", "West Coast", "West Coast Summer")) + 
       theme(axis.title.x = element_blank(), axis.title.y  = element_blank(), 
          axis.ticks.x = element_blank(), legend.position = "none")