如何使用函数循环在一页上绘制多个图？

如何解决如何使用函数循环在一页上绘制多个图？

R相对较新，我正在写硕士论文。我想为不同的家庭绘制多个ttest箱形图，并希望将它们排列在一个图中。要创建图，我使用以下代码

    dlply(dataset2,~Family,function(x){
p<-ggplot(x,aes(x = Elf3_allele,y = plant_height,fill = Elf3_allele)) +
  geom_Boxplot(fill=c("red2","chartreuse3")) +
  geom_dotplot(binaxis='y',stackdir='center',dotsize = .5,fill="red") +

theme_classic() +

  scale_x_discrete(name='Elf3_allele')+
  theme(axis.text.x = element_text(angle=45,hjust = 1,vjust = 1),legend.title = element_text(size = 16),legend.text = element_text(size = 12)) + 
  scale_color_manual(values = c("cornflowerblue","darkred"))
p + stat_compare_means(method = "t.test",vjust=1,hjust=0) +
  labs(title="plant_height",subtitle=x$Family)
   
})

这可以很好地打印图形。我如何在一个情节中获得它们？ 香港专业教育学院试图包括

plist <- list(p,p)
grid.arrange(grobs=plist,ncol=2)

进入该功能，但只将同一张图形打印两次

在此先感谢您，我的英语不好。