我想知道如何按 group计算不匹配的情况。
让我们想象这是我的数据:
sek = rbind(c(1, 'a', 'a', 'a'),
c(1, 'a', 'a', 'a'),
c(2, 'b', 'b', 'b'),
c(2, 'c', 'b', 'b'))
colnames(sek) <- c('Group', paste('t', 1:3, sep = ''))
数据看起来像这样
Group t1 t2 t3
[1,] "1" "a" "a" "a"
[2,] "1" "a" "a" "a"
[3,] "2" "b" "b" "b"
[4,] "2" "c" "b" "b"
为了得到类似的东西
Group 1 : 0
Group 2 : 1
stringdist
使用库来计算它会很有趣。
就像是
seqdistgroupStr = function(x) stringdistmatrix(x, method = 'hamming')
sek %>%
as.data.frame() %>%
group_by(Group) %>%
seqdistgroupStr()
但它不起作用。
有任何想法吗 ?
快速更新:您将如何解决权重问题?例如,在设置两个字符之间的不匹配时,我如何传递一个参数 - 一个值 (1,2,3, ...)。就像b 和 c之间的不匹配花费2,而a 和 c之间的不匹配花费1等等。