축이 'date'클래스 인 경우 ggplot2 주석 달기

Question

요즘에는 geom_line 플롯을 많이 사용하고 있습니다. 수업 날짜 축으로 플롯에 주석을 달 수있는 가장 쉬운 방법은 무엇입니까? 날짜 변수를 다른 클래스로 변환하는 것 외에는 다른가요? 여기

내 코드입니다 :

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

내가 2017-10하고 여기에

(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"))) 

편집 :

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")