두 개의 테이블이 있습니다.
두 테이블 모두 열이 1 개뿐입니다.
둘 다 1에서 1000 사이의 임의의 정수 값을 갖습니다.
이 두 테이블을 교차시키고 싶습니다. 문제는 약 10의 차이가 있어도 숫자를 교차시키고 싶다는 것입니다.
1st table -> 5 , 50, 160, 280
2nd table -> 14, 75, 162, 360
출력->
1st table -> 5, 160
2nd table -> 14, 162
R에서 이것을 어떻게 얻을 수 있습니까?
또는의 sapply
각 요소가 다른 벡터의 일부 멤버와 충분히 가까운 지 확인 하여 함수를 사용하여이를 수행 할 수 있습니다 .x
y
x <- c(5, 50, 160, 280)
y <- c(14, 75, 162, 360)
new.x <- x[sapply(x, function(z) min(abs(z-y)) <= 10)]
new.y <- y[sapply(y, function(z) min(abs(z-x)) <= 10)]
new.x
# [1] 5 160
new.y
# [1] 14 162
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다