麻烦与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)