R中的可视化群集（使用apcluster）

我需要得到我的集群可视化，但通过模板。 我是说，这是我的数据

mydat<- read.csv("mydat.csv",sep=";", dec=",")

我进行了聚类分析

library("apcluster")
apres1 <- apclusterK(negDistMat(r=2), df, K=25)
apres1

但这种形象化并不适合我

---

我不希望有25个绘图，我希望有1个绘图，比如如果我执行分类，请选择要绘图的2列

library("apcluster")
for(i in 1:3)
{
x11()
m=i
n=i+1
mehul= iris[,c(m,n)]
apres1 <- apclusterK(negDistMat(r=3),mehul,K=3)
plot(apres1,mehul)
}

library（“apcluster”）
（我在1:3中）
{
x11（）
m=i
n=i+1
mehul=iris[，c（m，n）]
apres1@KenS.我编辑了一篇文章，其中描述了我所做的，我必须只画两列，x1，x2，然后x3，x4，然后x4，x1，？是否可以写一个循环，这样所有的列都可以交替地画出来…，也就是说，会有大量单独的绘图。你明白我的想法吗？（1-3,1-5,2-5,2-3）…你明白了，你可以用x11（）若要在新窗口中绘制每个图形并为不同的绘图创建循环，请使用此循环编辑您的答案以显示给我，然后我接受您的回答我很乐意回答您的问题。请给我更多的时间。
plot(apres1, mydat)

library("apcluster")
for(i in 1:3)
{
x11()
m=i
n=i+1
mehul= iris[,c(m,n)]
apres1 <- apclusterK(negDistMat(r=3),mehul,K=3)
plot(apres1,mehul)
}