如何使用应用于文本列表来循环遍历r中的图

Question

我打算使用以下内容生成每页多个图：

d=data.frame(label=c(rep('a',3),rep('b',3)) )
d$x = sample(6,nrow(d))
d$y = sample(10,nrow(d))

plotList <- lapply(c("a","b"), function(i) {
plot(df[i,2],df[i,3])
  })

  library(gridExtra)
  do.call(grid.arrange, c(plotList, nrow=2))

预期效果是标签 b 数据的侧面ne点图标记 a 数据的一个点图。我知道ggplot面板可以在这里工作

d %>% ggplot(aes(x, y)) + geom_point() + facet_grid(.~label)

但具体情况我需要绘制哪些我没有好方法在这里共享原始数据我需要使用apply来绘制它和grid.arrange放在同一页面上。我看到了grid.arrange示例here。想知道如何使应用功能工作？感谢