data.frameで文字列を検索

Question

data.frameで文字列を検索するにはどうすればよいですか？最小限の例として、このdata.frameで '馬'の位置（列と行）を見つけるにはどうすればよいですか？

> df = data.frame(animal=c('goat','horse','horse','two', 'five'), level=c('five','one','three',30,'horse'), length=c(10, 20, 30, 'horse', 'eight')) 
> df 
    animal level length 
1 goat five  10 
2 horse one  20 
3 horse three  30 
4 two 30 horse 
5 five horse eight 

...行4と5の順序が間違っています。 「馬」が5行目のlevel列に、4列目のlength列に移動していることを確認できる出力があれば良いです。多分：

> magic_function(df, 'horse') 
col  row 
'animal', 2 
'animal', 3 
'length', 4 
'level', 5 

は、ここで私はこれを使いたいものです：私はいくつかの列がいくつかの行のために台無しにされている非常に大規模なデータ・フレーム（約60列、20.000行）を持っています。順序が間違っている可能性があるさまざまな方法を特定するために眼球には大きすぎるので、検索がうまくいくでしょう。この情報を使用して、これらの行の正しい列にデータを移動します。

何について

Answer 1

：あなたは出力が行列になりたい場合は

l <- sapply(colnames(df), function(x) grep("horse", df[,x])) 

$animal 
[1] 2 3 

$level 
[1] 5 

$length 
[1] 4 

：

sapply(l,'[',1:max(lengths(l))) 

    animal level length 
[1,]  2  5  4 
[2,]  3 NA  NA 

Answer 2

別の方法horseに等しい。行インデックス（nrow）で列のインデックスを取得し、列（ncol）で行インデックスを取得します。

colnamesを使用してインデックスの代わりに列名を取得します。

data.frame(col = colnames(df)[floor(which(df == "horse")/(nrow(df) + 1)) + 1], 
      row = floor(which(df == "horse")/ncol(df)) + 1) 

# col row 
#1 animal 1 
#2 animal 2 
#3 level 4 
#4 length 5 

Answer 3

我々は価値があるインデックスを取得することができます周り

which(df == "horse", arr.ind = TRUE) 
#  row col 
# [1,] 2 1 
# [2,] 3 1 
# [3,] 5 2 
# [4,] 4 3