ggplot中所有方面的一致geom_vline

Question

我正在尝试在同一xintercept的多个方面获得一致的虚线。问题在于该线是在每个构面中单独绘制的，因此总体上看起来不一致。 例如：

library(ggplot2)
p <- ggplot(mpg, aes(displ, cty)) + geom_line()
p + facet_grid(drv ~ .,scales = "free") + geom_vline(xintercept=4, linetype="dashed",size=2)

图

如果有更多方面，例如在层叠样式的情节中，它看起来更糟。更改panel.spacing并不能解决问题，因为破折号仍会中断。

有人有办法在所有方面画线而不是单独做吗？