R中散点图中的怪异回归线

Question

嗨，大家好，我的问题可能是统计数据或编程问题。 我有两个xts时间序列，大部分是重叠的时间段，我只是在绘制它们的对数差异的回归：

   logdiff <- merge.xts(diff(log(ts1)),diff(log(ts2)))
   plot(logdiff[,1],logdiff[,2])
   abline(lm(logdiff[,1]~logdiff[,2]),col=2)

这给了我这个情节

因此，仅凭直觉，我宁愿回归线适合更广泛的数据点，即使此结果在最小二乘方的基础上在技术上也给我正确的答案。 有没有内置的功能来执行这种“更广泛的回归”，还是我不得不求助于手动伪造？

Answer 1

我认为您将y绘制为x的函数，但将x回归为y的函数。

尝试abline(lm(logdiff[,2]~logdiff[,1]),col=2) -是的，使用列名代替索引是个好主意。