1つのdata.tableから別のdata.tableのヘッダーに一致して値を返す

Question

データセット1の観測とデータセット2のヘッダーを一致させ、データセット2の特定の観測結果を返す関数があるかどうかは疑問でした、

v1<-1:4 
v2<-5:8 
data1<-as.data.table(cbind(v1,v2)) 
data1 
colnames(data1)<-c("dog","cat") 
data1 
v3<-c("dog","cat") 
v4<-c("tiger","lion") 
data2<-as.data.table(cbind(v3,v4)) 
if (dat2[1,1]==colnames(data1)) { I would like to get the first observation 
in data1 under the column header dog} 

desired output: 1 

例えば

と私は値1を取得する必要がいることを返しに収まる機能{Iは、列ヘッダーのイヌ下DATA1の最初の観察を取得したい}があります特定の値ですか？

Answer 1

これは、どこでもデータ2の値を持つ任意の列のためにDATA1の最初の行を返します。

data1[1,.SDcols = names(data1)[data2 %in% names(data1)]] 

    dog cat 
1: 1 5