我正在尝试使用 facet_wrap 将一堆数据集绘制为散点，每个散点中都有一条单独的线，指示特定事件何时发生。但是，我无法让线条单独出现在每个情节中，而是它们都出现在所有情节中。融化后，数据如下：
names(data) = c("Date","ID", "event_date", "variable", "value")
我希望每个图都是值 ~ 日期的散点图，并且每个图除以 ID 并在每个 ID 显示的每个“event_date”处出现一条垂直线。我的最大努力使我做到了：
p <- qplot(Date, value, data=dat, colour=variable)
p <- p + geom_vline(xintercept=as.numeric(dat$event_date))
p + facet_wrap(~ID)
除了每个子图中显示的所有垂直线之外，它完美地工作。有什么建议么？通读文档还没有让我到任何地方。