Question

以这篇文章的答案为指导：

Linear Regression with a known fixed intercept in R

我对某些数据有一个明确的截距值，但也有一个明确的斜率，因此：

intercept <- 0.22483 
fit <- lm(I(Response1 - intercept) ~ 0 + offset(-0.07115*Continuous))

其中Response1是我的因变量，而Continuous是我的解释变量，来自this dataset。

我想为我的关系绘制一个abline。如果仅指定了拦截，则上面的帖子建议：

abline(intercept, coef(fit))

但是我在模型“fit”中没有系数，因为我指定了它们。有没有办法绘制我指定的关系的abline？

Answer 1

我忽视的简单解决方案。我知道斜率和截距，所以我可以直接将它们传递给abline：

abline(0.22483, -0.07115)

Answer 2

根据您的评论，您可以通过编程方式执行此操作，而无需手动输入值。以下是来自两个相似数据框的示例数据的示例：

df1 <- data.frame(Response1=rnorm(100,0,1), Continuous=rnorm(100,0,1))
df2 <- data.frame(Response1=rnorm(100,0,1), Continuous=rnorm(100,0,1))
fit1 <- with(df1, lm(Response1 ~ Continuous))
with(df2, plot(Response1 ~ Continuous)) # plot df2 data
abline(coef(fit1)) # plot df1 model over it

如何绘制适合某些数据的abline？

2 个答案: