Как я могу убедить ggplot2 geom_text пометить указанную дату на графике временных рядов?

Я использую 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, но большинство из них, похоже, связаны с диаграммами рассеяния, а не с временными рядами; мне не удалось их адаптировать. Я также потратил некоторое время на документацию но мое понимание все еще ограничено. Любые указатели приветствуются.