從列表 R 中提取圖

Question

我做了一個function：

mtcars_plot_fun <- function(cyl_in, gear_in) {
  car_data <- mtcars %>%
    filter(cyl == cyl_in,
           gear == gear_in)
  p <- car_data %>% ggplot(aes(x = disp, y = qsec, fill = gear)) +
    geom_point() 
  print(p)
}

然后是一個循環，繪制並將它們存儲在列表 object gg_obj

cyls <- c(4, 6)

gears <- c(3, 4)

for (cyl in cyls) {
  for (gear in gears) {
    gg_obj <- mtcars_plot_fun(cyl_in = cyl, gear_in = gear)
    }
}

現在我想從gg_obj中提取我需要的圖並使用grid.arrange() 、 gridExtra或類似於 plot 它們。 如何拉出我想要的圖，並將它們作為唯一對象存儲到網格中的 plot 中？

Answer 1

您可以使用do.call將您的繪圖列表用作 grid.arrange 的grid.arrange 。

例如：

do.call(grid.arrange, list.of.plots, ncol=2)