Eu quero anotar algum texto na última faceta da trama com o seguinte 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)

Mas este código anota o texto em todas as facetas. Eu apreciaria muito se você me orientar como obter o texto anotado em apenas uma faceta. Desde já, obrigado.