r - 索引问题

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 坐标处进行插值。例如：

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