行列を検索して複数の値を検索し、行名を返す方法

Question

私は2つの行列を持ち、1つはindex行列（ncol = 1、nrow = 20,000）で、検索したい値を格納し、もう1つの行列はdata行列で、大きなデータセットを格納します（ncol = 1、nrow = 5,000）。

indexマトリックス：（water、meat、gas ....行名）

water DFAFADFADF 
meat  QEREQRQTQTQ 
gas  FEQQFQEFQF 
. 
. 
. 
.. 

data

マトリックス：

（ Tom、 Luis、 Jerry、 Vincent、 Richard ...列名）

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

indexの各値、01のどの行を検索したいですか？行列の文字列をCONTAIN（S）に変換し、そのdataの行列の行名を記録し、index行列内のその文字列の次の列（または単一の列で区切りますが、 "、"で区切った列）に入れます。

たとえば、インデックス行列から値を取り出し、データ行列のどの行がこの文字列を含んでいるかを検索すると、トム、ルイス、ジェリー、リチャードがdataの行列に含まれています

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

そして私は再びdata行列を検索するために、indexマトリックス、QEREQRQTQTQに次の値を取る：文字列なので、私は

index行列であることをindex行列を更新します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) 

これは、列のインデックス$結果でlist()を生成しますので、あなたは、あなたが下り、その情報を処理する方法に応じて、それにunlist()を呼び出す必要があります。

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

次回のためのマッチングを簡単にすることがあります。またRにあなたがベクトルを命名し、ケースを持っていることができ、あなたは多分あなたは、このような名前の文字ベクトルがちょうど必要な場合があります1つの列のデータフレームを持っていました。

Answer 2

短いソリューション：

row.names(data)[apply(data, 1, function(x) { 
    sapply(x, function(y) y %in% c("DFAFADFADF", "QEREQRQTQTQ", "FEQQFQEFQF")) 
}), ]