R 如何绘制一些数据的拟合曲线？

根据对此帖子的回答：

我对某些数据拟合了一个显式截距值，但也拟合了一个显式斜率，因此：

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

---

但是，我在模型拟合中没有系数，因为我指定了所有系数。有没有一种方法可以为我指定的关系绘制基线？

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

abline(0.22483, -0.07115)

---

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

abline(0.22483, -0.07115)

---

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

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

---

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

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

---

在约束坡度和截距的情况下拟合模型的目的是什么？如果你这样做了，那么你就强加了一个模型，你可以很容易地绘制它，因为你已经知道斜率和截距。嗨，托马斯，我正在将一个截距和斜率从一个单独的数据集拟合到这个数据集，以查看它与第二个数据集的拟合程度，尽管这可能不是正确的方法？无论如何，我意识到，是的，我可以在ablineintercept中指定斜率，-0.07115-愚蠢的问题，对不起！不管模型是否合适，如果你同时知道斜率和截距，我必须再次问，为什么不直接将斜率传递给abline？你自己回答，这样你就可以将其标记为接受。因为它基于另一个数据集，你可以基于另一个数据集以编程方式传递它们，即。，构建第一个模型，然后根据第一个数据集中的coefs绘制第二个数据和abline。在约束坡度和截距的情况下拟合模型的目的是什么？如果你这样做了，那么你就强加了一个模型，你可以很容易地绘制它，因为你已经知道斜率和截距。嗨，托马斯，我正在将一个截距和斜率从一个单独的数据集拟合到这个数据集，以查看它与第二个数据集的拟合程度，尽管这可能不是正确的方法？无论如何，我意识到，是的，我可以在ablineintercept中指定斜率，-0.07115-愚蠢的问题，对不起！不管模型是否合适，如果你同时知道斜率和截距，我必须再次问，为什么不直接将斜率传递给abline？你自己回答，这样你就可以将其标记为接受。因为它基于另一个数据集，你可以基于另一个数据集以编程方式传递它们，即。，构建第一个模型，然后根据第一个数据集的coefs绘制第二个数据和abline。