Добавьте метки к каждому подзаголовку, созданному с использованием facet_wrap (ggplot2)

Question

Я совершенно новый для ggplot2 (и R), так что несите меня. Используя facet_wrap, я создал многопанельный сюжет. Я хочу пометить их алфавитными буквами (начиная с верхней левой панели с надписью (A) и следующей панели с (b) и т. Д.), Но я не уверен, как это сделать. Я хочу, чтобы это было расположено вне графика (в идеале в левом верхнем углу каждой панели).

Я столкнулся с grid.text и ggtitle, но я не уверен, как реализовать их для достижения желаемого результата.

Я натолкнулся на this post и с данными ответами можно вручную пометить каждую фигуру, но я хотел бы, чтобы маркировка выполнялась автоматически, по порядку.

Я был бы глубоко признателен за любые советы/руководства.

Answer 1

p <- qplot(displ, hwy, data = mpg) + facet_wrap(~ cyl) + 
    theme(panel.margin=unit(1,"line")) 

library(gtable) 
g <- ggplotGrob(p) 
strips <- g$layout[grep("strip_t", g$layout$name), ] 
titles <- lapply(paste0("(", letters[seq_len(nrow(strips))], ")"), 
       textGrob, x = 0, hjust = 0, vjust = 1) 
g <- gtable_add_grob(g, grobs = titles, 
        t = strips$t, b = strips$b - 2, 
        l = strips$l, r = strips$r) 
grid.newpage() 
grid.draw(g)