在群集之后将类分配给数据框

Question

我在数据帧df1上使用k-means聚类算法，结果如下图所示。

library(ade4)
df1 <- data.frame(x=runif(100), y=runif(100))
plot(df1)
km <- kmeans(df1, centers=3)
kmeansRes<-factor(km$cluster)
s.class(df1,fac=kmeansRes, add.plot=TRUE, col=rainbow(nlevels(kmeansRes)))

是否有可能将观察来自哪个群集的数据框信息添加到其中？

Answer 1

您已拥有所需信息：

kmeansRes<-factor(km$cluster)

只需将其作为附加列添加到数据框中。

df1$cluster <- km$cluster