将单独的线添加到 facet_wrapped 图

Question

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

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

我希望每个图都是值 ~ 日期的散点图，每个图按 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。