인덱싱 문제

Question

나는 두 세트의 정보 (잔차) 간의 차이를 그려 내려고 노력했습니다. 두 데이터 세트는 유사하지만 아직 다른 특성을 가지고 있으며 두 데이터 세트 모두 0에서 동일한 X 값으로 이동합니다. 유일한 불일치는 서로 다르게 인덱싱되므로 첫 번째 그래프가 A 단계에서 X에 도달하는 동안 두 번째 그래프는 B 단계에서 X에 도달합니다. 따라서 한 데이터 프레임의 종속 변수 값을 다른 변수에서 뺄 수는 없습니다. 매우 일반적인 용어로 말하기 때문에 간단한 예제를 제공했습니다.

data1 <- data.frame(x1=c(1,2,3,4,5,6), y1=c(10,5,7,3,2,4)) 
data2 <- data.frame(x2=c(1,3,6), y2=c(1,3,2)) 

plot(data1, y1 ~ x1, type = 'l', lty = 1, col = 'blue', xlim = c(1,6), ylim = c(0,10)) 
points(data2$y2 ~ data2$x2, type = 'l', lty = 1, col = 'red') 

그래서 내 질문은 추측 : I는 다음과 같이 두 데이터 집합 사이의 잔차 플롯 할

1. 내가 (위처럼) 두 가지 기능의 잔류를 그릴 수있는 방법을 그 다르게 색인됩니다. 두 데이터 세트 간의 잔차를 풀 수있는 함수가 있습니까?

EDIT1 : 예제가 잘못되어 Spacedman이이 문제를 해결하는 데 도움이되었습니다.

Answer 1

선형 보간이 충분하면 approx을 사용하여 X 좌표 집합에서 보간 할 수 있습니다. EG : 자사의 x 축과 y 축에 식 'ZZZZ ~ ZZ'매우 혼란스러워지고에 데이터 2를 플롯하려고 있도록

> xout = sort(unique(c(seq(1,6,len=100),data1$x1,data2$x2))) # include data coords (untested) 
> d1 = approx(data1$x1,data1$y1,xout) 
> d2 = approx(data2$x2,data2$y2,xout) 
> plot(xout,d1$y-d2$y,type="l")