Я генерирую 50 различных кластеров kmean, используя цикл for, а затем я хочу построить все полученные карты (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.