私は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)
これは、すべてのサブプロットに表示されるすべての垂直線を除いて、完全に機能します。助言がありますか？ドキュメントを読んでも、まだどこにも到達していません。