populateルックアップデータフレームに基づくデータフレームR

Question

ルックアップテーブルを使用してテーブル間で列名に基づいてデータフレームを切り替えるにはどうすればよいですか。

Orig 

A B C 
1 2 3 
2 2 2 
4 5 6 

Ret 

D E 
7 8 
8 9 
2 4 


lookup <- data.frame(Orig=c('A','B','C'),Ret=c('D','D','E')) 
    Orig Ret 
1 A D 
2 B D 
3 C E 

最後のデータフレームが

A B C 

7 7 8 
8 8 9 
2 2 4 

Answer 1

我々は数値インデックス（ただしを見つけるために、「ORIG」の列名と「検索」で「ORIG」列をmatch可能になるように、それは同じ順序であり、他の場合には異なる可能性がある）、それに基づいて対応する「Ret」要素を得る。これを使用して 'Ret'データセットをサブセット化し、出力を元のデータセットに戻します。ここで私は "Orig"のコピーを作った。

OrigN <- Orig 
OrigN[] <- Ret[as.character(lookup$Ret[match(as.character(lookup$Orig), 
      colnames(Orig))])] 
OrigN 
# A B C 
#1 7 7 8 
#2 8 8 9 
#3 2 2 4 

注：as.characterが '参照' で列として使用されたがfactorクラスでした。

Answer 2

私は次のことも同様に機能すると考えています。

OrigN <- Orig 
OrigN[, as.character(lookup$Orig)] <- Ret[, as.character(lookup$Ret)] 

この方法はOrigに列シャッフル（@Akrun以下、実際にコピーOrigN）を適用して、適切なルックアップを使用したRetの列を命じてこれらの列を埋めます。