使用聚类分配矩阵为数据分配聚类标签

assign cluster labels to data using a cluster assignment matrix

您好,我正在使用 R 并且有一个来自我的聚类函数的聚类分配矩阵。 (我正在对高斯混合数据应用聚类算法)我想创建一个聚类数据矩阵。这是我想做的玩具示例。

#simulate data

dat=Z<-c(rnorm(2,0,1),rnorm(2,2,3),rnorm(3,0,1),rnorm(3,2,3))
 dat
 [1] -0.5350681  1.0444655  2.9229136  8.2528266 -0.7561170 -1.0240702     -1.0012780
 [8] -0.1322981  7.8525855  2.2278264

# Making up a cluster assignment matrix (actually this one comes out of my      
#clustering function

amat<-matrix(c(1,1,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0,1,1,1), ncol=2, nrow=10)
        amat
       [,1] [,2]
 [1,]    1    0
 [2,]    1    0
 [3,]    0    1
 [4,]    0    1
 [5,]    1    0
 [6,]    1    0
 [7,]    1    0
 [8,]    0    1
 [9,]    0    1
[10,]    0    1

我想使用给定的分配矩阵创建名为(比如说)"clust" 的数据框或向量,如下所示包含簇标签 above.Basically 它使用分配矩阵的第一列和第二列并分配标签1 到来自正态分布 N(0,1) 的数据,并将标签 2 分配给来自正态分布 N(2,3) 的数据。感谢任何帮助。提前致谢。

    # clust should look like this (I have no idea how to create this using amat and dat)

    clust
 [1] 1 1 2 2 1 1 1 2 2 2

向量已经是二进制的。我们可以在第二列添加1L

clust <- amat[,2] + 1L
[1] 1 1 2 2 1 1 1 2 2 2

(后缀L将值强制为integer

这本质上是不是

1 * column1 + 2 * column2 +3 * column3 等等?

应该可以直接写成矩阵乘法 [1,2,3,4,...] 和求和运算。