r - 如何说服 ggplot2 geom_text 在时间序列图中标记指定日期？

Question

我正在使用 ggplot2 绘制时间序列数据的简单折线图。我遇到的一个困难是标记与 x 轴值(即日期)相对应的特定点。

library(ggplot2)
library(scales)
date <- c("2011-09-19","2011-09-20","2011-09-21",
    "2011-09-22","2011-09-23","2011-09-26","2011-09-27")
price <- c(100,110,105,115,120,115,125)
tmp <- data.frame(date,price)
tmp$date <- as.Date(tmp$date)
p <- ggplot(tmp,aes(tmp$date,tmp$price))
p <- p + xlab("Date")
p <- p + ylab("Price")
p <- p + layer(geom = "line")
p <- p + opts(title="Simple price plot")
print(p)

我想做的是为特定日期添加注释，这可能是最大值或最小值或其他值得注意的东西。到目前为止，我使用的 geom_text 的所有排列都未能获得我想要的效果(或实际上任何有用的东西)。在 SO 上有一些关于此的问题，但大多数似乎与散点图而不是时间序列有关；我在尝试适应它们方面没有成功。我也花了一些时间在文档上，但我的理解仍然有限。任何指针将不胜感激。

Answer 1

将文本添加到 ggplot , 使用 geom_text :

方法 1:将一列标签添加到您的 data.frame :

tmp$note <- LETTERS[1:7]

ggplot(tmp,aes(date, price, label=note)) +
  geom_line() +
  geom_text(vjust=0, colour="red")

方法二:添加特定标签:

ggplot(tmp,aes(date, price, label=date)) +
  geom_line() +
  geom_text(data=tmp[3, ], label="Something of note", vjust=1)