Quiero anotar un texto en la última faceta de la trama con el siguiente código:

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)

Pero este código anota el texto en cada faceta. Le agradecería mucho que me guiara sobre cómo obtener el texto anotado en una sola faceta. Gracias por adelantado.