Сетка из нескольких графиков ggplot2, созданных в цикле for

Question

Как новый пользователь ggplot2, я немного растерялся из-за количества возможностей и изо всех сил пытаюсь найти в сети простой ответ на то, что я считаю простой проблемой.

Я хотел бы отобразить несколько графиков из ggplot2 на одном листе, НО зная, что эти графики происходят из цикла for.

Следующий пример не компилируется, он только для иллюстрации:

for(i in c(1:n)){                                   
  for(j in c(1:m)){
    ..........  # some data production
    p <- ggplot(df.all) + geom_bar(aes_string(x=class.names[i],fill=var.names[j])
}}

Здесь p перезаписывается, но я хотел бы иметь вместо этого матрицу или список, в который я могу поместить все p по мере их создания, а затем простую функцию, например

display_in_a_grid(list_of_ggplot_plots)

Но, насколько я пытался, я не смог составить список матрицы заговора или найти функцию, которая принимает только один аргумент для ввода.

О вещах, на которые я взглянул:

"rangeGrob"из пакета gridExtra не работает, потому что для каждого графика требуется явное имя (например, p1,p2,p3,...), как в http://code.google.com/p/gridextra/wiki/arrangeGrob

Метод "фасета" ggplot2 не приспособлен для организации моего набора данных (или наоборот:p)

У вас был бы простой способ справиться с этим?

Спасибо,

Франсуа

Answer 1

Я был бы склонен согласиться с Ричи, но если вы хотите организовать их самостоятельно:

library(gridExtra)
library(ggplot2)
p <- list()
for(i in 1:4){
  p[[i]] <- qplot(1:10,10:1,main=i)
}
do.call(grid.arrange,p)

взгляните на примеры в конце ?arrangeGrob для способов полностью исключить цикл for:

plots = lapply(1:5, function(.x) qplot(1:10,rnorm(10),main=paste("plot",.x)))
require(gridExtra)
do.call(grid.arrange,  plots)

Answer 2

Это моё решение. Крошечные изменения в ggplot функция с mapping параметр для aes_string,

library(gridExtra)
library(ggplot2)
p <- list()
for(i in 1:4){
p <- ggplot(data=df,aes_string(x=df$x,y=df$y) +geom_bar(aes_string(x=class.names[i],fill=var.names[j])
}
do.call(grid.arrange,p)

Надеюсь это поможет!