MATCH関数がr

Question

のリストを持ち、最初のもの（list1）はid、name、ageを持ち、他のもの（list2、list3、..）はIDとテスト値（unique）を持ちます。

リスト1：

id age name bio-test  
1 40 danny 
2 16 nora    
3 35 james 
4 21 ben 

は、リスト2（バイオテスト）：

id test passed year 
1 100 yes 1 
5 80 yes n/a  
4 55 no 2 

私は、各IDにテスト値をリスト1に追加しようとしています（すべてのidがテスト値を持っていません）。

これはコードの一部である：

for (i in 1:length(list1)) { 
list1$test1value <- list2$test[match(list1$id[i], list2$id[i]), 
nomatch = NA_integer_, incomparables = NULL)] } 

代わりIDによって試験値を探し、それがLIST2からちょうど最初のテスト値をコピーして、200個の細胞および他の3000にコピーがNであります/ A.

何が間違っていますか？

Answer 1

まず、あなたの例にタイプミスがあります。第2に、 'list1 $ test1value'の割り当てには、各ラウンドで保存しないために '[i]'が追加されていなければなりません。検索のためにベクトル全体を検索したいので、list2$idに '[i]'を追加する必要はありません。

for (i in 1:length(list1)) { 
    list1$test1value[i] <- list2$test[match(list1$id[i], list2$id, 
          nomatch = NA_integer_, incomparables = NULL)] } 

コードは機能しますが、ここでループする理由はありません。あなたはRがどのように動作するかについての理解の欠如を示しています。以下のコードはまったく同じことをはるかに速くします。

list1$test1value <- list2$test[match(list1$id, list2$id)] 

あなたはその手を保持し、どのようにベクトルの各要素を通過するように指示する必要がないようにRが構築されています。 matchが自動的に各メンバーを1つずつ繰り返して、それを他のベクターで探します。また、結果セットをデータセット内に規則的な方法で割り当てます。

他の人も示唆しているように、mergeがこれに最適ですので、これを複製として閉じます。

merge(list1, list2[c("id", "test")], all.x=TRUE) 
# id age name test 
#1 1 40 danny 100 
#2 2 16 nora NA 
#3 3 35 james NA 
#4 4 21 ben 55