R_如何從成對比較中查找共同元素並進行計算

Question

您能告訴我如何將相交的數字相加並除以較小的數字嗎？ （實際上，我有很多列表）。

foo = list (X=c("a","b","c"),Y=c("a","d","e","f"),Z=c("a","b","z","f","e"),ZZ=c("b","z","e","c"))

從這里，

我想首先計算成對公共元素的總數，然后將值除以較小的元素，

即3.4166 ，

3.4166 = 1/3（相交（X，Y）/ min（X，Y））+ 2/3（相交（X，Z）/ min（X，Z））+ 2/3（相交（X，ZZ） / min（X，ZZ）+ 3/4（相交（Y，Z）/ min（Y，Z））+ 1/4（相交（Y，ZZ）/ min（Y，ZZ）+ 3/4（相交（Z，ZZ）/分鍾（Y，ZZ））

Answer 1

combn和apply組合可能會達到目的：

sum(apply(combn(seq_along(foo),2),2,function(xx){
  length(intersect(foo[[xx[1]]],foo[[xx[2]]]))/
    min(c(length(foo[[xx[1]]]),length(foo[[xx[2]]])))
}))

至少這可以給您帶來結果。 對我來說，尚不清楚系數（1 / 3、2 / 3，...）的來源...但是您可能可以從這里獲取。 如果您能澄清問題，也可以編輯。