軸がクラス 'date'のときにggplot2で注釈を付ける

Question

最近、geom_lineプロットで多くのことを扱っています。クラス日付の軸を持つプロットに注釈を付ける最も簡単な方法は何ですか？日付変数を別のクラスに変換する以外の方法はありますか？

ここに私のコードです：私は2017から10にある最後のデータポイントに注釈を付けるたい

china_trades %>% 
    filter(type %in% c("Imports")) %>% 
    ggplot() + 
    geom_line(aes(x = month, y = dollars, group = 1)) + 
    theme_minimal() 

と48

ここに私のプロットです：

Answer 1

たぶん誰かがすることができますこれを行う純粋なggの方法でチャイムインしますが、directlabelsパッケージには次の機能があります。

china_trades %>% 
    filter(type %in% c("Imports")) %>% 
    ggplot() + 
    geom_line(aes(x = month, y = dollars, group = 1)) + 
    theme_minimal() + 
    geom_dl(aes(label = month), method = list(dl.combine("last.points"))) 

編集：ここでは注釈を使用したGGの方法です：

x <- as.Date(c('2016-1-1','2016-1-2','2016-1-3','2016-1-4')) 
y <- c(4,1,2,3) 
df <- data.frame(x,y) 

lastDate<- max(x) 
lastDateY <- df[x==lastDate,2] 

ggplot(df) + 
    geom_line(aes(x = x, y = y)) + 
    annotate(geom='text', x=lastDate,y=lastDateY, vjust=-2, label="China")