索引问题

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')

所以我想我的问题是：

1. 如何绘制以不同方式编制索引的两个函数（如上所述）的残差。是否有一个函数可以解决两个数据集之间的残差？

EDIT1：这个例子有问题，Spacedman帮助我纠正了这个问题。

Answer 1

如果线性插值足够好，可以使用approx在一堆X坐标处进行插值。 EG：

> 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")