將一個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是否有一種可以放入{我想獲得的數據1列標題狗下的第一個觀察}返回一個函數特殊的價值？

Answer 1

這將在數據2隨時隨地返回DATA1的第一行的任何列有一個值：

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

    dog cat 
1: 1 5