R 如何在使用'；他在用膝关节吗？

我试图使用lappy来排列从函数生成的grob，但是有更多的数据试图传递到gList，而不是网格函数可以使用的数据，下面是一些可复制的代码：

library(dplyr)
library(gridExtra)

split_ex <- mtcars %>% split(cyl)
list_ex <- unique(mtcars$cyl)

test_plot <- function(dat){
subtest_plot <- function(type) {
  ggplot(data=dat %>% filter(cyl==type)) +
    geom_col(aes(y=mpg,x=disp)) +
    labs(title=type)
}
lapply(list_ex, function(type) subtest_plot(type))
}

grid.arrange(test_plot(mtcars),ncols=2)

库（dplyr）
图书馆（gridExtra）
拆分（例如，拆分百分比）（气缸）
列表库（dplyr）
图书馆（网格）
图书馆（GG2）
图书馆（gridExtra）
拆分（例如，拆分百分比）（气缸）
列表库（dplyr）
图书馆（网格）
图书馆（GG2）
图书馆（gridExtra）
拆分（例如，拆分百分比）（气缸）
列表_例如“列表中的数据太多”？可能不是最好的措辞，但数据量比GROB多。“列表中的数据太多”？可能不是最好的措辞，但数据量比GROB多。
library(dplyr)
library(grid)
library(ggplot2)
library(gridExtra)

split_ex <- mtcars %>% split(cyl)
list_ex <- unique(mtcars$cyl)

test_plot <- function(dat){
  subtest_plot <- function(type) {
    ggplot(data=dat %>% filter(cyl==type)) +
      geom_col(aes(y=mpg,x=disp)) +
      labs(title=type)
  }
  lapply(list_ex, function(type) subtest_plot(type))
}

grid.newpage()
grid.draw(
  arrangeGrob(grobs=test_plot(mtcars), ncol=2)
)