Как я могу убедить 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")

Метод 2: Добавить определенную метку:

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