如何在for循环内的一页中绘制多个图像？

Question

我正在使用for循环生成50个不同的kmean群集，然后我希望将所有结果图（xyplot）全部绘制在一起。

我尝试了以下操作，这些操作分别生成每个图表：

for (i in c(1:50)) {
RNGkind(kind = NULL,normal.kind = NULL)
clusters <- kmeans(md5[,1:2],40,iter.max = 50,nstart = 50)
str(clusters)
md5$kmean <- as.factor(clusters$cluster)
print(xyplot(YC~XC,md5,groups = kmean, main = paste0("kmean",i)))
setnames(md5,"kmean", paste0("kmean",i))
}

我希望只有一个文件（jpeg或pdf），将全部50张地图放在一起，网格为5x10。