Chcę dodać adnotację do tekstu na ostatnim fragmencie wykresu za pomocą następującego kodu:

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)

Ale ten kod zawiera adnotacje na temat każdego aspektu. Byłbym bardzo wdzięczny, gdybyś prowadził mnie, jak uzyskać tekst z adnotacjami tylko na jednym aspekcie. Z góry dziękuję.