Kmodes 集群大小在每次运行时变化很大

Question

我在 r 中使用 kmodes 聚类。每次我运行下面的代码时，即使在设置种子之后，我也会得到不同的集群大小

set.seed(11) 
c1 = kmodes(data, 3, iter.max = 1000, weighted = FALSE)

我正在寻找即使在再次运行相同的代码后也不会改变的输出。我知道 kmodes 使用与 Kmeans 相同的技术来处理初始随机点。如果我们设置种子，那么 Kmeans 会给出相同的集群大小输出但不适用于 Kmodes..

谢谢

拉胡尔

Answer 1

使用这个简单的代码，我们可以调查kmodes 给出的结果是否可以使用set.seed 重现：

library(klaR)
set.seed(1)
x <- rbind(matrix(rbinom(250, 2, 0.25), ncol = 5),
           matrix(rbinom(250, 2, 0.75), ncol = 5))
colnames(x) <- c("a", "b", "c", "d", "e")

nreps <- 10
mtx <- matrix(0, nrow(x), nreps)
for (k in 1:nreps) {
  set.seed(123)
  mtx[, k] <- kmodes(x, 3, iter.max = 1000, weighted = FALSE)$cluster
}

kmodes 的输出在 nreps 运行中不会改变

apply(mtx,2,function(x) all(x==mtx[,1]))

[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE