将单独的行添加到facet_wrapped绘图中

Question

我正在尝试使用facet_wrap将一堆数据集绘制为散点图，每个散点都有一条单独的行，指示特定事件发生的时间。但是，我无法在每个情节中单独显示这些线条，而是它们都出现在所有情节中。融化后，数据看起来像：

names(data) = c("Date","ID", "event_date", "variable", "value")

我希望每个绘图都是值~Date的散点图，每个绘图按ID划分，每个“event_date”出现一条垂直线，显示每个ID。我最大的努力让我：

p <- qplot(Date, value, data=dat, colour=variable)
p <- p + geom_vline(xintercept=as.numeric(dat$event_date))
p + facet_wrap(~ID)

除了每个子图中显示的所有垂直线外，其效果都很好。有什么建议？阅读文档还没有把我带到任何地方。

Answer 1

ggplot(dat, aes(Date,value))+ geom_point() + geom_vline(data=dat,aes(xintercept=as.numeric(event_date))) + facet_wrap(~ID)

我是如何使用facet_grid（）做同样的事情。我很确定它也适用于facet_wrap。