在R中找到簇的交集

Question

假设我已经完成了几项操作，并创建了如下所示的相关值的聚类向量

D <- matrix(rexp(10*10,rate=.1), ncol=10) #create a randomly filled 10x10 matrix
C <- matrix(rexp(10*10,rate=.1),ncol=10)

DCor <- cor(D) # generate correlation matrix
CCor <- cor(C)

DUpper<- DCor[upper.tri(DCor)] # extract upper triangle
CUpper<- CCor[upper.tri(CCor)]

ClusterD <- kmeans(DUpper,3) # cluster correlations
ClusterC <- kmeans(CUpper,3)

ClusterC <- cbind(c(1:45),matrix(ClusterC$cluster)) # add row numbers as column
ClusterD <- cbind(c(1:45),matrix(ClusterD$cluster))

我想生成一个矩阵，显示每个群集组的交集。在该矩阵中，5行属于C1和D2组。

如何生成这样的矩阵？

Answer 1

在cbind行之前，你可以这样做：

table(ClusterC$cluster, ClusterD$cluster)