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

雏菊节拍

我在R中的Iris数据集上执行了k均值聚类分析。我试图生成使用kmeans聚类的kmeans聚类的所有不同属性组合(Sepal.Length,Sepal.Width,Petal.Length和Petal.Width)的成对图。以3的中心为中心。我能够生成第一个组合的图(“掌骨长度” 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, aes(colour = cluster, alpha = 0.4), 
columns = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width"),
upper = "blank",
diag = NULL)

虹膜对图

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章