for (i in c(1:nrow(data1))){
  for (j in c(1:nrow(data2))){
      ifelse(data1[i,2]=data2[j,2] && (data1[i,3]-data2[j,3])<0.01 && (data1[i,4]-data2[j,4])<0.2,data3[j,]<-cbind(data1[i,],data2[j,]),data3[j,]=data3[50000,])
  }
}