使用遗传算法优化K均值聚类

Question

我有以下dataset （ 在此处获得）：

----------item survivalpoints weight
1  pocketknife             10      1
2        beans             20      5
3     potatoes             15     10
4       unions              2      1
5 sleeping bag             30      7
6         rope             10      5
7      compass             30      1

我可以使用二进制字符串作为我最初选择的中心，使用kmeans()将数据集分为三个群集。 例如：

## 1 represents the initial centers
chromosome = c(1,1,1,0,0,0,0)
## exclude first column (kmeans only support continous data)
cl <- kmeans(dataset[, -1], dataset[chromosome == 1, -1])
## check the memberships
cl$clusters
# [1] 1 3 3 1 2 1 2

使用此基本概念，我尝试使用GA软件包进行搜索，以尝试优化（最小化）Davies-Bouldin（DB）索引。

library(GA)           ## for ga() function
library(clusterSim)   ## for index.DB() function

## defining my fitness function (Davies-Bouldin)
DBI <- function(x) {
        ## converting matrix to vector to access each row
        binary_rep <- split(x, row(x))
        ## evaluate the fitness of each chromsome
        for(each in 1:nrow(x){
            cl <- kmeans(dataset, dataset[binary_rep[[each]] == 1, -1])
            dbi <- index.DB(dataset, cl$cluster, centrotypes = "centroids")
            ## minimizing db
            return(-dbi)
    }
}

g<- ga(type = "binary", fitness = DBI, popSize = 100, nBits = nrow(dataset))

当然（我不知道发生了什么），我收到Warning messages: Error in row(x) : a matrix-like object is required as argument to 'row'

这是我的问题：

1. 如何正确使用GA套件解决我的问题？
2. 如何确定随机生成的染色体包含相同数量的1 s（对应于k个簇）（例如，如果k=3那么染色体必须恰好包含三个1 s）？

Answer 1

我无法评论将k均值与ga相结合的感觉，但我可以指出，您的适应度函数存在问题。 同样，当所有基因都打开或关闭时也会产生错误，因此仅在不是这种情况时才计算适合度：

DBI <- function(x) {
  if(sum(x)==nrow(dataset) | sum(x)==0){
    score <- 0
  } else {
    cl <- kmeans(dataset[, -1], dataset[x==1, -1])
    dbi <- index.DB(dataset[,-1], cl=cl$cluster, centrotypes = "centroids")
    score <- dbi$DB
  }

  return(score)
}

g <- ga(type = "binary", fitness = DBI, popSize = 100, nBits = nrow(dataset))
plot(g)

g@solution
g@fitnessValue

看起来几种基因组合产生了相同的“最佳”适应度值