Текст перекрывающихся несколько аспектов

Question

У меня есть график, который я сконструированный с использованием (по горизонтали) грани:

mtcars$cyl2 <- factor(mtcars$cyl, labels = c("alpha", "beta", "sqrt(x, y)")) 
k <- ggplot(mtcars, aes(wt, mpg)) + 
    geom_point() 
k + facet_grid(. ~ cyl2) 

я хотел бы добавить текст к этому сюжету. Я понимаю, как добавить текст с помощью geom_text к отдельной грани, но я хотел бы, чтобы мой текст охватывал несколько граней. Как это (сделано в Paint):

внутригрупповой ggplot версия была бы предпочтительнее, но даже возможность аннотирования изображения после экспорта будет работать. (Конечное изображение будет в формате PDF через knitr.)

Answer 1

Вы можете, например, использовать

library(grid) 
grid.text("This is not alpha", x = 0.7, y = 0.8)