Annoter du texte sur une facette individuelle dans ggplot2

Je veux annoter du texte sur la dernière facette de l'intrigue avec le code suivant: 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) Mais ce code annote le texte sur...