r - R 最佳拟合 45 度线

Question

（我知道它一定非常容易，但我在 R 中苦苦挣扎：）

我将 x 和 y 值的数据集保存在 X 和 Y 向量中。我知道数据图应该完全遵循 -45 度线（见下图）

我如何找到最适合数据的 -45 度线（+ 所有这些统计数据可从 summary(lm(...)) 获得？我试过 lm，但我不能强迫它放弃拟合斜率参数

谢谢

尝试后：lm(y~1,offset=-x)并应用abline(coefficient, -1)我得到以下情节（见下文）

黑线是abline plot，黄色是我的猜测——有什么问题lm或者我完全错过了什么？

Answer 1

既然你说：

y = -1*x + b

然后

y+x = b

所以计算 (y+x) 的平均值，得到 b 的平均值

mean(y+x)

Answer 2

我相信@BenBolker 的解决方案是正确的，也许您使用了错误的系数：

lm1 <- lm(y~1,offset=-x,data=df)
plot(df)
abline(coefficients(lm1),-1)

这会产生：

这种合身对我来说看起来很合适。截距为 -2.217。