將單獨的行添加到facet_wrapped繪圖中

Question

我正在嘗試使用facet_wrap將一堆數據集繪制為散點圖，每個散點都有一條單獨的行，指示特定事件發生的時間。 但是，我無法在每個情節中單獨顯示這些線條，而是它們都出現在所有情節中。 融化后，數據看起來像：

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

我希望每個繪圖都是值~Day的散點圖，每個繪圖按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。