如何在R中生成Kmeans聚类图的成对图？

如何解决如何在R中生成Kmeans聚类图的成对图？

我在R中的Iris数据集上执行k均值聚类分析。我试图生成使用以下属性聚类的所有不同属性组合（Sepal.Length，Sepal.Width，Petal.Length和Petal.Width）的成对图。中心为3的kmeans。我能够生成第一个组合的图（“掌骨长度” v“隔骨宽度”），如下所示：

attach(iris)
iris.scaled <- scale(iris[,-5])
k <- kmeans(iris.scaled,centers=3)
plot(iris.scaled[,1],iris.scaled[,2],col=KM$cluster,)

但是，我不确定如何对所有6种可能的属性组合执行此操作，并具有4 x 4的成对图。我以为可能是pairs函数，但没有运气

解决方法

我建议：

library(GGally)
library(data.table)
attach(iris)
iris$Species <- NULL
iris.scaled <- data.table(scale(iris))
k <- kmeans(iris.scaled,centers=3)
iris.scaled[,cluster := as.factor(k$cluster)]
colnames(iris.scaled)
# ggplot(iris.scaled,aes(x = Sepal.Length,y = Sepal.Width)) +
#   geom_point(aes(color = factor(cluster)))
ggpairs(iris.scaled,aes(colour = cluster,alpha = 0.4),columns = c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width"))

编辑：
您还可以删除上方的图形：

ggpairs(iris.scaled,"Petal.Width"),upper = "blank",diag = NULL)