r - アノテーション付きのggplot2で矢印を描く方法

Question

注釈を付ける必要がある ggplot チャートを作成しています。私はそれを行うことができますが、テキストは私が注釈を付けたい日付を正確に指しているわけではありません. 注釈を作成するのが好きな axix に矢印を描く方法はありますか?

私はこれを持っています：

   ggplot(df, aes(Date, CPU)) + geom_point() + 
       annotate("text", x = as.POSIXct(c("2013-03-11 23:00:00")), 
                y = 90, label = "problem 1", angle=90, size=5, 
                colour='black', face="bold")