我在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] 删除。
我来说两句