如何在矩阵中搜索多个值并返回其行名？

Question

我有两个矩阵，一个是索引矩阵(ncol=1,nrow=20,000)，存储我要搜索的值，另一个矩阵是数据矩阵，存储一个大型数据集(ncol=1,nrow=5,000）。

索引矩阵:(水,肉,气....是行名）

water    DFAFADFADF
meat     QEREQRQTQTQ
gas      FEQQFQEFQF
.
.
.
..

数据矩阵:(汤姆,路易斯,杰里,文森特,理查德...是行名）

Tom              dfqfqfAFADFADaveffefd
Luis             eqeqfqefAFADFADuouojoimoij
Jerry            dafadfe3321AFADFADfdeff
Vincent          e31413413qeffffff
Richard          121eefq3ffAFADFADfffqffqff
.
.
.
..

我要为index矩阵中的每个值查找data矩阵的哪一行包含该字符串，并记录其data矩阵的行名，并将其放在index矩阵中该字符串行的下列列中（或在一列中，但用“,”分隔）。

例如，我希望有一个循环，首先从索引矩阵中取值“DFAFADFADF”并搜索数据矩阵中的哪些行包含该字符串，因此我发现数据矩阵中的Tom、Luis、Jerry、Richard包含该字符串，因此我将索引矩阵更新为

索引矩阵：

water    DFAFADFADF    Tom, Luis, Jerry, Richard
meat     QEREQRQTQTQ
gas      FEQQFQEFQF
.
.
.
..

然后取index矩阵中的下一个值qereqrqtqtq再次搜索data矩阵，然后再次返回更新index矩阵，直到完成index矩阵的最后一行。

有谁能帮上一个圈套吗？我想我们可能需要一个循环，使用for(...)，但不知道如何使用。

Answer 1

index <- data.frame(one = c("ABC", "DEF", "GHI", "JKL"))
rownames(index) <- c("water", "meat", "fruit", "bread")
data <- data.frame(one = c("ABCDEF", "DEFZMN", "MNOABC", "ZXCJKL"))
rownames(data) <- c("Tom", "Jerry", "Rob", "Nate")

results <- data.frame()
for (r in 1:nrow(index)) {
    index$results[r] <- list(rownames(data)[grep(index$one[r], data$one, ignore.case = T)])
    count <- length(unlist(index$results[r]))
    df <- data.frame(data_match = unlist(index$results[r]),
                     pattern = rep(index$one[r], times = count),
                     index_match = rep(rownames(index)[r], times = count))
    results <- rbind(results, df)
}
reshape2::dcast(results, index_match ~ data_match)

这将在列索引$results中生成list()，因此您可能需要对其调用unlist()，具体取决于您希望如何在下游处理该信息。同样，在R中，您可以有命名向量，在一个情况下，如果您有一个列数据帧，您可能只需要一个命名字符向量，如下所示：

index <- c("ABC", "DEF", "GHI", "JKL")
names(index) <- c("water", "meat", "fruit", "bread")

可能会让下次的匹配更简单。