abline 的问题

Question

我无法在 log10 大脑质量和 log10 体重图表上绘制 2 abline()s。我正在遵循别人的脚本，但它对我不起作用。这是我的：

这是生成的图表：

为什么那里的线路是那样的？我得到的截距和斜率值是不正确的，还是我使用了错误的值？我已经完成了其他示例并且它工作正常，但我总是最终使用第一个模型，而不是第二个模型，所以我不确定我是否使用了正确的值。

Answer 1

如果要表示体重对数与脑质量对数的线性回归，代码为：

model <- lm(log10(brain)~log10(body))

然后

abline(model$coefficients[2], model$coefficients[1])

当您不知道在函数中输入哪个参数时，请使用该函数的帮助。对于abline()，第一个参数是斜率，第二个参数是截距。

目前，您的模型使用 log10(brain)、log10(body) 和 class。

如果您想评估模型的质量，请查看残差。

plot(model)

Answer 2

您也可以像这样使用 lm 的结果：

    model <- lm(log10(brain)~log10(body))
    plot(log10(brain)~log10(body))
    abline(model,col=2)

Trouble with abline