ggplot2：時間軸上の複数の垂直線（geom_vlines）にテキストを追加する方法は？

Question

は、次の例を見てください

library(dplyr) 
library(lubridate) 
library(ggplot2) 
data <- data_frame(time = c(ymd(20160201), 
          ymd(20160202), 
          ymd(20160203), 
          ymd(20160201), 
          ymd(20160202)), 
          value = c(1,1,1,2,2), 
          group = c('A','A','B','B','B')) 

events <- data_frame(time = c(ymd(20160201), 
           ymd(20160202)), 
        text = c('who let the dogs out?', 
           'who? who? who?')) 

ggplot(data, aes(x = time, y = value, group = group, color = group)) + 
    geom_line(size = 2) + 
    geom_vline(data = events, aes(xintercept = as.numeric(time))) 

> data 
# A tibble: 5 × 3 
     time value group 
     <date> <dbl> <chr> 
1 2016-02-01  1  A 
2 2016-02-02  1  A 
3 2016-02-03  1  B 
4 2016-02-01  2  B 
5 2016-02-02  2  B 

> events 
# A tibble: 2 × 2 
     time     text 
     <date>     <chr> 
1 2016-02-01 who let the dogs out? 
2 2016-02-02  who? who? who? 

私は各グループの変数valueための折れ線グラフ（AとB）を取得し、垂直線にeventsでイベントがあるたびにプロットしたいと思いますデータフレーム。

ggplot(data, aes(x = time, y = value, group = group, color = group)) + 
    geom_line(size = 2) + 
    geom_vline(data = events, aes(xintercept = as.numeric(time))) 

問題は、私は、対応するテキストと、各縦線（各イベント）をラベル付けしたいということです：ggplot vertical line with date axis、How to get a vertical geom_vline to an x-axis of class date?とHow to add legend for vertical lines in ggplot?私は簡単にそれを行うことができますアイデアを使用して

、R ggplot2: Labelling a horizontal line on the y axis with a numeric valueのように。

残念ながら、やって次はここで間違って何

ggplot(data, aes(x = time, y = value, group = group, color = group)) + 
    geom_line(size = 2) + 
    geom_vline(data = events, aes(xintercept = as.numeric(time))) + 
    geom_text(data = events, aes(x = as.numeric(time), y = 0, label = text)) 

動作しませんか？何か案は？ ありがとう！

Answer 1

あなたは私が維持するために、 `Y = -Inf`を使用して` ylims`応答が好き

ggplot(data, aes(x = time)) + 
    geom_line(aes(y = value, group = group, color = group), size = 2) + 
    geom_vline(data = events, aes(xintercept = as.numeric(time))) + 
    geom_text(data = events, mapping = aes(label = text, y = 0), angle = 60, hjust = 0)