for循环中每页有多个绘图

我有一个具有多个（64）数据帧的列表对象。虽然我可以成功地为循环中的每个数据帧绘制多个柱状图（在64页的PDF文档中，每个图都在一个新页面上），但我很难生成一个每页8个图的8页PDF文档。
我使用的代码是：

    listfinal1 <- list()
    listfinal2 <- list()
    for (i in 1:64){
    listfinal1[[i]] <- data.frame(rnorm(100,10))
    colnames(listfinal1[[i]]) <- c("Column A")
    }
    for (i in 1:64){
    listfinal2[[i]] <- data.frame(rnorm(10,1))
    colnames(listfinal2[[i]]) <- c("Column B")
    }
    plot_list <- list()
    pdf("jnk1.pdf")
    plotlist <- list()
    for (i in 1: length(listfinal1)){
    P1 <- hist(listfinal1[[i]][,1],breaks=seq(-30,30,by=2),plot=FALSE)
    P2 <- hist(listfinal2[[i]][,1],breaks=seq(-30,30,by=2),plot=FALSE)
    P3 <- plot(0,0,type="n",xlim=c(-30,30),ylim= c(0,max(P1$counts)+2),xlab="Costum Lenghts (mm)",ylab= "Frequency")
    grid(col="lightgray",lty="solid")
    plot1 <- plot(P1,col="black",density=0,angle=135,add=TRUE)
    plot2 <- plot(P2,col="red",density=50,angle=45,add=TRUE)
    plotlist[[i]] <- plot2
     }

     dev.off()

---

listfinal11-基础图形立即绘制，不能将它们指定给变量

2-
par（mfrow=c（4,2））
每页将放置4x2个绘图

pdf('test.pdf')
par(mfrow=c(2,1))
for(ii in 1:3){
  plot(1,1)
  hist(rnorm(10))
}
dev.off()

如果我理解正确，您想在每个for循环中调用grid.arrange？请在此处检查答案-请提供一个可复制的示例。对于
grid.arrange
，请在帮助中选择不同的选项（
layout\u matrix
，
widths
，
heights
）@Mansi您实际更改了您的问题，并且没有使用
ggplot2
。所以，
grid.arrange
不起作用。此外，应删除标签
ggplot2
，或使用
ggplot2
plot更新问题