私はdata.frame「DAT」と数値ベクトル「テスト」を持っているdata.frame

Question

内の行のサブセットにベクトルを比較：

code <- c("A22", "B15", "C03") 
v.1 <- 1:3 
v.2 <- 3:1 
v.3 <- c(2, NA, 2) 
bob <- c("yes", "no", "no") 
dat <- data.frame(code, v.1, v.2, v.3, bob, stringsAsFactors = FALSE) 
test <- c(3, 1, 2) 

を私はどこdata.frame内の行を見つけたいです2番目から4番目の列（ "v.1"、 "v.2"、 "v.3"）は、ベクトルと同じ値を同じ順序で含み、 "code" -columnから値を返します（inこの場合 "C03"）。

私は

dat[dat[, 2:4] == test]$code 

と

動作しません。どちらも

which(apply(dat, 1, function(x) all.equal(dat[, 2:4], test)) == FALSE) 

を試してみました。

私は基本R.とソリューションを好むだろう

私達はちょうど私たちは「コードが必要な場合は、比較

dat[2:4] == test[row(dat[2:4])] 

を行う前に、長さが等しくなるようにする「テスト」を複製する必要が

Answer 1

私たちは一緒に列をpasteと同じを持っている行をチェックすることができますapplyで「

dat$code[rowSums(dat[2:4] == test[row(dat[2:4])], na.rm = TRUE)==3] 
#[1] C03 

Answer 2

値をtestとして貼り付け、それぞれの行の列codeを選択します。

dat[apply(dat[2:4], 1, paste0, collapse = "|") == 
         paste0(test, collapse = "|"), "code"] 

#[1] C03 

Answer 3

（which付き）あなたの2番目のオプションは、いくつかの問題のために動作しません：全体datにapplyを使用すると、characterのmatrixに変換しますが、実際に、関数の引数をxを使用していない、あなたが使用する必要がありますallall.equalの代わりに、おそらくFALSEの代わりにTRUEとなります（比較は実際には必要ありません）。

あなたはそれを動作させるためにそれを少し変更することができます。

which(apply(dat[, 2:4], 1, function(x) all(x==test))) 
[1] 3 

それとも

dat[apply(dat[, 2:4], 1, function(x) all(x==test)), "code"] 
[1] C03