Matching by ID of 2 datasets

Tao data frames.

set.seed(1)
dataA <- data.frame(AV1=c(1,2,3,4,5,6,7), AV2=rnorm(7,10,1),AV3=rnorm(7,1,0.3))
dataB <- data.frame(BV1=rnorm(5,22,7),BV2=c(3,5,7,8,9), BV3=c(5,6,7,8,10))
dataA;dataB

##   AV1       AV2       AV3
## 1   1  9.373546 1.2214974
## 2   2 10.183643 1.1727344
## 3   3  9.164371 0.9083835
## 4   4 11.595281 1.4535344
## 5   5 10.329508 1.1169530
## 6   6  9.179532 0.8136278
## 7   7 10.487429 0.3355900

##        BV1 BV2 BV3
## 1 29.87452   3   5
## 2 21.68546   5   6
## 3 21.88667   7   7
## 4 28.60685   8   8
## 5 27.74855   9  10

Chon 2 data voi cung hang theo gia tri cua bien AV1 va BV2

p1=dataA[dataA$AV1 %in% dataB$BV2,]   # will keep data in dataA
p1

##   AV1       AV2       AV3
## 3   3  9.164371 0.9083835
## 5   5 10.329508 1.1169530
## 7   7 10.487429 0.3355900

p2=dataB[dataB$BV2 %in% dataA$AV1,]   # will keep data in dataB
p2

##        BV1 BV2 BV3
## 1 29.87452   3   5
## 2 21.68546   5   6
## 3 21.88667   7   7

data=cbind(p1,p2)
data

##   AV1       AV2       AV3      BV1 BV2 BV3
## 3   3  9.164371 0.9083835 29.87452   3   5
## 5   5 10.329508 1.1169530 21.68546   5   6
## 7   7 10.487429 0.3355900 21.88667   7   7