R找到超过2个向量的匹配项

Question

我正在处理一组 5 excel 列 A,B,C,D,E 的单词 "Aaa","Aab"...，我想在所有列（在 R 中）中找到完全匹配。

A   B   C   D   E  
Aaa Aaa Baa Aaa Ass
Aab Ccc Aaa Baa Aaa
Ccc Abc Ccc Ccc Ccc
... ... ... ... ...

我为每一列创建一个向量。
为此，我尝试使用 if 和 grep 函数进行 for 循环。

<pre>
    for(i in A_vector) {
          if(grep("i", B_vector))
              if(grep("i", C_vector))
                  if(grep("i", D_vector))
                      if(grep("i", E_vector))
                          print(i)
      }
<code>

（但我只获取了第一个向量A_vector中的单词）。
最后，我想要一个向量，其中的单词 "Aaa", "Bbb"... 在 5 列中匹配。我不需要向量中每个匹配项的位置，只需要所有向量共有的单词。

 Result
    [1] "Aaa"
    [2] "Ccc"
    [n]  ...

提前致谢！

Answer 1

您可以尝试使用 data.table:

，虽然有点复杂

library(data.table)

setDT(data)

data[, unlist(lapply(.SD, intersect, y = unique(A))), A][, .N, A][N == {ncol(dt) - 1}, A]

Answer 2

这是根据您的解释编辑的答案，您希望找到至少两列之间的所有匹配项：

 Mylist <-list(A=c("Aaa","Aab","Ccc","Ddd"), B=c("Aaa","Ccc","Abc","Abd"), C=c("Baa","Aaa","Ccc","Abb","Ddd"), D=c("Aaa","Baa","Ccc","CBB","Baa"),E=c("Ass","Aaa","Ccc","Gef"))
 CharVec <-unlist(Mylist)
 unique(CharVec[duplicated(CharVec)])

Answer 3

您要查找每个列表之间的共同元素，而不仅仅是一般的重复元素。下面的重复项是 Aaa, Ccc, Ddd, and Xxx，但唯一重复的元素是 Xxx。 intersect() 将通过一些双重 lapply 功能来实现这一点。

A = list("Aaa", "Aaa", "Ccc", "Ccc")
B = list("Ddd", "Ddd", "Ddd", "Eee")
C = list("Fff", "Ggg", "Hhh", "Iii", "Jjj")
D = list("Kkk", "Lll", "Mmm", "Nnn", "Xxx")
E = list("Ppp", "Qqq", "Rrr", "Xxx")
Mylist <- list(A, B, C, D, E)

dupes <- unlist(lapply(Mylist, function(x) lapply(Mylist, function(y) intersect(x,y))))

unique(dupes[duplicated(dupes)])

[1] "Xxx"

要查看交叉点在哪里，这会告诉您第 4 个列表与第 5 个列表有 1 个相同的元素：

sapply(seq_len(length(Mylist)), function(x) sapply(seq_len(length(Mylist)), function(y) length(intersect(unlist(Mylist[x]), unlist(Mylist[y])))))

     [,1] [,2] [,3] [,4] [,5]
[1,]    2    0    0    0    0
[2,]    0    2    0    0    0
[3,]    0    0    5    0    0
[4,]    0    0    0    5    1
[5,]    0    0    0    1    4

R找到超过2个向量的匹配项

R find matches for more than 2 vectors

excel

r

matching

grepl