Аннотирование текста на отдельном фасете в ggplot2

Я хочу аннотировать некоторый текст на последней грани графика следующим кодом:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)
print(p)

Но этот код аннотирует текст на каждом аспекте. Я был бы очень признателен, если бы вы помогли мне получить аннотированный текст только на одном аспекте.