將個別行添加到facet_wrapped圖

Question

我正在嘗試使用facet_wrap將一羣數據集繪製爲散點，每個散點都有一個單獨的行，用於指示何時發生特定事件。但是，我無法在每個情節中單獨出現，但是他們都出現在所有情節中。熔化後，數據的模樣：

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

，我想每一個情節是有價值的散點圖〜日期，以及每個地塊劃分的ID與出現在每個「活動日期」一縱線，顯示了爲每個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。