我有一个数组,我想获取它之间的相似度的度量values在每一列中。我的意思是我希望比较数组的成对列之间的行,并在它们的值匹配时增加一个度量。对于两列来说,所得的测量值最大值将完全相同。
本质上我的问题与这里讨论的相同:R:两两比较矩阵中的所有列 https://stackoverflow.com/questions/19933788/r-compare-all-the-columns-pairwise-in-matrix只是我不希望计算空单元格。
使用从链接页面派生的代码创建的示例数据:
data1 <- c("", "B", "", "", "")
data2 <- c("A", "", "", "", "")
data3 <- c("", "", "C", "", "A")
data4 <- c("", "", "", "", "")
data5 <- c("", "", "C", "", "A")
data6 <- c("", "B", "C", "", "")
my.matrix <- cbind(data1, data2, data3, data4, data5, data6)
similarity.matrix <- matrix(nrow=ncol(my.matrix), ncol=ncol(my.matrix))
for(col in 1:ncol(my.matrix)){
matches <- my.matrix[,col] == my.matrix
match.counts <- colSums(matches)
match.counts[col] <- 0
similarity.matrix[,col] <- match.counts
}
我得到:
similarity.matrix =
V1 V2 V3 V4 V5 V6
1 0 3 2 4 2 4
2 3 0 2 4 2 2
3 2 2 0 3 5 3
4 4 4 3 0 3 3
5 2 2 5 3 0 3
6 4 2 3 3 3 0
它计算非值对。
我想要的输出是:
expected.output =
V1 V2 V3 V4 V5 V6
1 0 0 0 0 0 1
2 0 0 0 0 0 0
3 0 0 0 0 2 1
4 0 0 0 0 0 0
5 0 0 2 0 0 1
6 1 0 1 0 1 0
Thanks,
Matt