Нумерация нескольких графиков в ggplot2

Question

Мне нужно построить несколько графиков на странице. Я хотел бы иметь письмо в левом верхнем углу каждого сюжета (например, A или B и т. Д.). Как мне это сделать с помощью ggplot2?

Это не указано в руководстве ggplot2 (Hadley Wickham), и я не могу найти его, выполнив поиск веб-индексов.

Вот код, который вы можете использовать для иллюстрации.

library(ggplot2) 
p1 <- qplot(rnorm(10), rnorm(10)) 
p2 <- qplot(rnorm(10), rnorm(10)) 
grid.arrange(p1, p2, nrow=1) 

Answer 1

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

require('ggplot2') 
df <- data.frame(cbind(rnorm(20),rnorm(20),c('A','B','C','X'))) 
ggplot(df, aes(x=X1,y=X2)) + geom_point() + facet_wrap(~ X3, ncol=2) 

Не обращайте внимания на уродливую маркировку, но я думаю, что она делает то, что вы ищете!

Answer 2

Использование Cowplot может решить эту проблему.

plot_grid(p,q,labels=c('1','2')) 

p и q - объект ggplot.