当轴为'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方式来实现这一点但直接标签包具有此功能：

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